anyone got facebook mail yet?

zomgser — Fri, 28 Jan 2011 16:47:53 +0800

everyone, want to ask u, have u got the facebook mail yet???

auto increment id

zomgser — Mon, 26 Jul 2010 00:32:32 +0800

hye guys.. i really need help for my vb projects... my question is, how to make an auto increment id for vb6...i've got sveral cooding but i still got so many errors

here are some of my codes:

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub cmdRefresh_Click()
item.Text = ""
serialno.Text = ""
quantity.Text = ""
brand.Text = ""
End Sub

Private Sub cmdSubmitEnquiry_Click()
cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & " data source=" & App.Path & "\User1.mdb"
cn.Open

rs.Open " select * from item", cn, adOpenDynamic, adLockPessimistic

If item.Text = "" Then
MsgBox "Please select Item", vbInformation
Else
rs.AddNew
rs!item = item.Text
rs!sn = serialno.Text
rs!quantity = quantity.Text
rs!brand = brand.Text
rs.Update
If rs.BOF <> True And rs.EOF <> True Then
rs.MoveLast
i = Val(rs!sn)
i = i + 1
j = j + 1
serialno.Text = i
Else
serialno.Text = 1
End If
End If
serialno.SetFocus
MsgBox " Data Succesfully added", vbInformation
cn.Close
End Sub

Private Sub Command1_Click()
Unload Me
home.Show
End Sub

Private Sub Command2_Click()
Unload Me
Itemdetail.Show
End Sub

Private Sub item_GotFocus()
'MsgBox "Please Enter select the item", vbCritical
End Sub

Private Sub quantity_GotFocus()
'MsgBox "Please Enter the ammount of quantity", vbCritical
End Sub
Private Sub brand_GotFocus()
'MsgBox "Please Enter the brand that you choose"
End Sub

Private Sub serialno_Change()
If rs.BOF <> True And rs.EOF <> True Then
rs.MoveLast
i = Val(rs!serial_no)
i = i + 1
j = j + 1
txtSerialNo.Text = i
Else
txtSerialNo.Text = 1
End If
End Function

Lowyat.NET: Latest topics by zomgser

anyone got facebook mail yet?

auto increment id