DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Auto number problem

•

Join Date: Apr 2006

Posts: 62

Reputation: Fenerbahce is an unknown quantity at this point

Solved Threads: 0

Fenerbahce Fenerbahce is offline

Offline

Junior Poster in Training

Auto number problem

Nov 18th, 2007

Query = "select * from table2 where number='" + Text5.Text + "'"
Rs.Open (Query), Conn, adOpenStatic, adLockReadOnly

Hi,
If "number" is defined as Auto number in Access database, second line generates an error. If "number" is not defined as Auto number then, no problem. What can i do?
Thanks

•

Join Date: May 2007

Posts: 537

Reputation: choudhuryshouvi is an unknown quantity at this point

Solved Threads: 49

choudhuryshouvi choudhuryshouvi is offline

Offline

Posting Pro

Re: Auto number problem

Nov 19th, 2007

try the following code :-

take two labels(label1 and label2) and a textbox(Text1)
here the database ->"aa.mdb"
table ->"aa"
fields ->"id" (long,autonumber) ; "name" (text)

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
 
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
conn.ConnectionString = str
conn.Open
 
str = "select * from aa where id = " & Val(Text1.Text)
rs.Open str, conn, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
    Label1.Caption = rs!id
    Label2.Caption = rs!Name
Else
    MsgBox "No record found."
End If
Text1.Text = ""
Text1.SetFocus
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String

str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
conn.ConnectionString = str
conn.Open

str = "select * from aa where id = " & Val(Text1.Text)
rs.Open str, conn, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
    Label1.Caption = rs!id
    Label2.Caption = rs!Name
Else
    MsgBox "No record found."
End If
Text1.Text = ""
Text1.SetFocus