AboutRavindra Expertise visual basic application programming from design to access information, sql, engineering and commercial applications. access databases, excel.
Optional:
1) if you want me to spend quality time and do special work, i expect to be paid a reasonable price for my time.
2) if you are pleased with my reply you could consider a donation of 1$.
3) you can visit my website http://ravindra.coolpage.biz (under constrn)
Experience
Past/Present clients project work for a Norway company, and a Canadian company completed. Freelance Project work and Teaching
teaching vb
Question how to retrieve values from access file in vb?
Answer
'put a check mark on Project_References_ Microsoft ActiveX Data Objects Library
'you can addnew and display in the same form1 and eliminate Form2.
'have 4 commandbuttons and 2 textboxes and add this code. you need to alter the path and add more textboxes and fields
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
'your code to find suits access form and NOT vb form. i suppose you are in Visual Basic Project getting info from access table. for thst use
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
'the LOCKS AND OPENDYNAMIC... ETC produce errors
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
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
