Posts by ZahodLakho

image1.visible= False
image1.picture= Nothing

dim id as integer
id=inputbox("Please Enter ID")
adodc.recordset.find"[id]="&id

This is Visual Basic 6 String Connection

dim con as adodb.connection
dim rs as new adodb.recordset
Private Sub Form_Load()

Set con = New ADODB.Connection
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\databasename.mdb;Persist Security Info=False"
con.Open ConnectionString

If rs.State = 1 Then rs.Close
sql = "select * tablename"
rs.Open sql, con, 3, 3

While Not rs.EOF
Call filldata(rs)
rs.MoveNext
Wend

End Sub

sub filldata(rs as adodb.recordset)
txtname.text = rs!name
cmbsex.text = rs!sex
txtage.text = rs!age
end sub

sub insertdata(byref rs as adodb.recordset)
rs.addnew
rs!name = txtname.text
rs!sex = cmbsex.text
rs!age = txtage.text
rs.update
msgbox"Record Saved"
end sub

sub cleardata()
txtname.text = ""
cmbsex.text = ""
txtage.text = ""
end sub

sub updatedata(byref rs as adodb.recordset)
rs.update
rs!name = txtname.text
rs!sex = cmbsex.text
rs!age = txtage.text
end sub