Linking visual basic to msaccess

Closed
annie - Mar 10, 2009 at 05:40 AM
 just asking - Jul 17, 2009 at 10:35 PM
Hello,
plzzz twll me linking with visual basic to msaccess with coding........

1 reply

Catgurl323 Posts 6 Registration date Wednesday February 4, 2009 Status Member Last seen June 9, 2009 25
Mar 11, 2009 at 04:26 AM
try this:

Option Explicit
Dim conn As ADODB.Connection, rec As ADODB.Recordset
Dim esql As String, esql2 As String, searchvar As String
Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Command4.Visible = True
Command1.Visible = False
Text1.SetFocus
End Sub

Private Sub Command2_Click()
If Not rec.EOF Then
rec.MoveNext
Else
rec.MoveLast
End If
GetText
End Sub

Private Sub Command3_Click()
If Not rec.BOF Then
rec.MovePrevious
Else
rec.MoveFirst
End If
GetText
End Sub

Private Sub Command4_Click()
On Error GoTo 1
If Text1 = "" Or Text2 = "" Then
Command4.Visible = False
Command1.Visible = True
Exit Sub
End If
rec.AddNew
rec.Fields(0) = Text1
rec.Fields(1) = Text2
rec.Fields(2) = Text3
rec.Update
If Not rec.EOF Then rec.MoveNext
rec.MoveFirst
GetText
Command4.Visible = False
Command1.Visible = True
Exit Sub
1
MsgBox ("duplicate value") & Text3
End Sub


Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
searchvar = InputBox("enter item to find")
rec.Close
rec.Open ("select * from TestRavi where First=" & "'" & searchvar & "'"), conn, adOpenStatic, adLockReadOnly
If rec.Fields(0) <> "" Then
Text1 = rec.Fields(0)
Text2 = rec.Fields(1)
Text3 = rec.Fields(2)
Else
MsgBox ("No matching records found")
rec.Close
rec.Open ("select * from testravi"), conn, adOpenDynamic, adLockOptimistic
GetText
End If
End Sub
'for integers use
'Dim searchvar2 As Integer
'searchvar2 = InputBox("enter Number")
'rec.Open ("select * from TestRavi where First=" & searchvar2), conn, adOpenStatic, adLockReadOnly
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rec = New ADODB.Recordset
'conn.Open ("Provider=Microsoft.Jet.OLEDB 4.0;Data Source=C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb;Persist Security Info=False")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb;Persist Security Info=False"
conn.Open
esql = "select * from TestRavi"
rec.Open (esql), conn, adOpenDynamic, adLockOptimistic
GetText
End Sub

Private Sub Form_Unload(Cancel As Integer)
rec.Close
conn.Close
Set conn = Nothing
command1.visible=false
End Sub
Private Sub GetText()
If rec.BOF = True Or rec.EOF = True Then Exit Sub
Text1 = rec.Fields(0)
Text2 = rec.Fields(1)
Text3 = ""
End Sub
21
what about for Visual Basic 2008??

tnx, i need hellpppp
0