Related:
- Linking visual basic to msaccess
- Msaccess download - Download - Databases
- Visual paradigm - Download - Data management
- Visual basic download - Download - Source code editing
- Visual basic editor download - Download - IDE
- Disadvantages of linking instagram to facebook - Guide
1 response
Catgurl323
Posts
6
Registration date
Wednesday February 4, 2009
Status
Member
Last seen
June 9, 2009
25
Mar 11, 2009 at 04:26 AM
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
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
Jul 17, 2009 at 10:35 PM
tnx, i need hellpppp