[help/req] vb6 adodc login logout database - PINOYDEN

Mga ka pwede ba makahingi sample program or sourcecodes na pang adodc ms acess database na may log in logout search addnew at delete ng madami sa makakatulong

sayang di ako naka pc upload ko sana program ko..

po ka sa pag angat, ako din dati thesis ko ito nabura, ngayon kailangan sa aaplyan,

just go to planet-source-code.com .. maraming sample dyan!

masyado po advance dito puru module na. Adodc lang kailangan e anyays

May ole ka na Ba na object ? yung adodc   ... anu Ba gamit mo ms access ?

Ms acess lang po database nya

Public dbConnection As ADODB.Connection
Public rsStudent As ADODB.Recordset

' This is for the connection to your database
' call this in you form_load( how?   call dbConnect
Public Sub dbConnect()
Set dbConnection = New ADODB.Connection
dbConnection.CursorLocation = adUseClient
dbConnection.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" _
  & App.Path & "\IPADatabase.mdb;Jet OLEDB:Database;"
End Sub

Private Sub Form_Load()
Call dbConnect
'Open table for Student
Set rsStudent = New ADODB.Recordset
rsStudent.Open "Select * from Student", dbConnection, adOpenStatic, adLockOptimistic
End Sub


Private Sub cmdfirst_Click()
rsStudent.MoveFirst
Call DisplayRecord
End Sub

Private Sub cmdprevious_Click()
rsStudent.MovePrevious
If rsStudent.BOF Then
   MsgBox ("You reach the beginning of file...")
   rsStudent.MoveFirst
End If
Call DisplayRecord
End Sub

Private Sub cmdnext_Click()
rsStudent.MoveNext
If rsStudent.EOF Then
   MsgBox ("You reach the end of file...")
   rsStudent.MoveLast
End If
Call DisplayRecord
End Sub

Private Sub cmdlast_Click()
rsStudent.MoveLast
Call DisplayRecord
End Sub

Private Sub DisplayRecord()
txtstudID.Text = rsStudent!studid
txtlname.Text = rsStudent!Lname
txtfname.Text = rsStudent!fname
txtmname.Text = rsStudent!mname
txtaddress.Text = rsStudent!address
cbobday.Value = rsStudent!bday
cboEStatus.Text = rsStudent!EStatus
cbogender.Text = rsStudent!gender
txtreligion.Text = rsStudent!religion
cboyearlevel.Text = rsStudent!yearlevel
txtsection.Text = rsStudent!Section
txtscholarship.Text = rsStudent!scholarship
txtage.Text = Int((Date - cbobday.Value) / 365)

Diba eeedit mu pa ung datasource ba yon ng textbox jan sa code mu? @acgilbert...

salamat po dito, log in logout delete naman

gawa ka na lang ng interface nito... basta ito ang para sa button to check if the username and password exist.

Private Sub cmdok_Click()
Dim dusername As String
Dim dpassword As String
Dim rsRecQuery As String
Dim rsRecord As ADODB.Recordset
dusername = UCase(Trim(txtusername.Text))
dpassword = UCase(Trim(txtpassword.Text))

Set rsRecord = New ADODB.Recordset
rsRecQuery = "Select * from login where ucase(username) = '" & dusername & "' and ucase(password) = '" & dpassword & "'"
rsRecord.Open rsRecQuery, dbConnection, adOpenStatic, adLockOptimistic
     
If rsRecord.RecordCount <> 1 Then
   MsgBox "Access Denied", vbInformation, "Security check..."
   txtusername.SetFocus
   rsRecord.Close
   Exit Sub
End If
   
rsRecord.MoveFirst
MsgBox "Access Granted! " & vbCrLf & "- - - - - - - - - - - -" & vbCrLf & vbCrLf & "W    E    L    C    O    M    E" & _
vbCrLf & "Name           : " & Trim(rsRecord!Name), vbInformation, "Security check..."
   
currentuser = Trim(rsRecord!Name)
authority = 0
rsRecord.Close
Set rsRecord = Nothing
Unload Me
Unload frmsplashscreen
MainMenu.Show
End Sub




**********
sa delete
**********
rs.delete
rs.update

salamat sir,

pa help din po ako neto....   kung may sample programm na po kayo

kung adodc po gusto mo.. mas madali to.. command button.  ito yung codes

Private Sub Command1_Click()
Adodc1.Recordset.AddNew

End Sub
try to run it..

mangyayari nyan...first  i click mu yung button.. at fill up all the text field (make sure lahat ng text field mo ay connected sa source MDB mo) .. tapus click mu ulit yung command button after fill up... automatic save yung mga text file sa MDB access mo..

'=== ADD ===
With Adodc1.Recordset
    .MoveLast
    .AddNew
    .Fields!ID = .RecordCount + 1
    .Fields!Name = Trim(txtName.Text)
    .Fields!Age = Trim(txtAge.Text)
    .Fields!Gender = Trim(cboGender.Text)
    .Update
End With

'=== DELETE ===
With Adodc1.Recordset
    .Delete
    .Update
End With

'=== EDIT/SAVE ===
With Adodc1.Recordset
    .Fields!Name = txtName.Text
    .Fields!Age = txtAge.Text
    .Fields!Gender = cboGender.Text
    .Update
End With

'=== SEARCH ===
With Adodc1.Recordset
    .MoveFirst
    While Not .EOF
        If txtID.Text = .Fields!ID Then
            txtName.Text = .Fields!Name
            txtAge.Text = .Fields!Age
            cboGender.Text = .Fields!Gender
            Exit Sub
        Else
            .MoveNext
        End If
    Wend
    MsgBox "Record not Found!"
End With

---

'=== LOG IN ===
With Adodc1.Recordset
    While Not .EOF
        If txtUsername.Text = .Fields!Username and txtPassword.Text = .Fields!Password Then
            Form2.Show
            Exit Sub
        Else
            .MoveNext
        End If
    Wend
    MsgBox "Invalid Username or Password!"
End With