vb program insert into >>problem

[ErapGuapo]

---

try to use the debugging feature of vb6...it helps a lot...

[izel]

unsa connection gamit nimo bro? basin naa problema sa connection nimo? and unsa database na gamit.. ?

try pud basin naa ka error filter like ON ERROR RESUME NEXT mao d cya ma save

[rhex_tendo]

I already solve this program but the problem is ..it cannot store data nasad

'is this problem solved

[istoryansucks]

Private Sub cmdRetrieve_Click()
Dim rs As New ADODB.Recordset
rs.Open "SELECT * from user_act WHERE id > " & txtid.Text, Conn, adOpenForwardOnly, adLockPessimistic

If Not rs.EOF Then
txtid.Text = rs!id
'txtpassword.Text = rsSearch!Password
txtuname.Text = rs!uname
txtpassword.Text = rs!Password


Else
LastID = 0

End If


rs.Close

[istoryansucks]

Private Sub cmdRetrieve_Click()
Dim rs As New ADODB.Recordset
rs.Open "SELECT * from user_act WHERE id > " & txtid.Text, Conn, adOpenForwardOnly, adLockPessimistic

If Not rs.EOF Then
txtid.Text = rs!id
'txtpassword.Text = rsSearch!Password
txtuname.Text = rs!uname
txtpassword.Text = rs!Password


Else
LastID = 0

End If


rs.Close

mo retrieve cya pero dli mao ang iyang e retrieve

[istoryansucks]

Private Sub cmdDelete_Click()
If txtID.Text = "" Then
MsgBox "Please enter an ID number!", vbCritical
Exit Sub
End If


Dim rs2 As New ADODB.Recordset
ans = MsgBox("Do you really want to delete this record?", vbYesNo, Me.Caption)
If ans = vbYes Then
rs2.Open "DELETE FROM MIDTERM WHERE ACT_ID='" & txtID.Text & "'", Conn, 1, 2
MsgBox "Record Deleted"
clear

End If
End Sub
ex.. 0001 was successfully delted pero ika retrieve na ko mo balik na sad 0001.unsa problema ani bro

[rhex_tendo]

Private Sub cmdRetrieve_Click()
Dim rs As New ADODB.Recordset
rs.Open "SELECT * from user_act WHERE id > " & txtid.Text, Conn, adOpenForwardOnly, adLockPessimistic

If Not rs.EOF Then
txtid.Text = rs!id
'txtpassword.Text = rsSearch!Password
txtuname.Text = rs!uname
txtpassword.Text = rs!Password


Else
LastID = 0

End If


rs.Close

'dili jud mao ang e.retrive kay > man imo gamit

[rhex_tendo]

Private Sub cmdDelete_Click()
If txtID.Text = "" Then
MsgBox "Please enter an ID number!", vbCritical
Exit Sub
End If


Dim rs2 As New ADODB.Recordset
ans = MsgBox("Do you really want to delete this record?", vbYesNo, Me.Caption)
If ans = vbYes Then
rs2.Open "DELETE FROM MIDTERM WHERE ACT_ID='" & txtID.Text & "'", Conn, 1, 2
MsgBox "Record Deleted"
clear

End If
End Sub
ex.. 0001 was successfully delted pero ika retrieve na ko mo balik na sad 0001.unsa problema ani bro

'what data type anang ACT_ID nga field
'kung String or Text:
rs2.Open "DELETE FROM MIDTERM WHERE ACT_ID='" & txtID.Text & "'", Conn, 1, 2
'if Number:
rs2.Open "DELETE FROM MIDTERM WHERE ACT_ID=" & txtID.Text, Conn, 1, 2
'then try ichange nga 1 ug 2 sa adOpenDynamic ug adLockOptimistic

[Cometburn]

Private Sub cmdsave_Click()
Dim rs As New ADODB.Recordset
Dim sqlstr As String

rs.Open sqlstr, Conn, adOpenDynamic, adLockOptimistic

sqlstr = " insert into user_act(id,password,uname,date)Values ('"&txtid.text&"','"&txtpassword.text"','"&txtunam e.text&"','#"&txtdate.text&"#)"


unsa sayop ani bro...dli man maka save cya data sa database? expert i need ur help

Kung Access imo DB, Ingon ani ang Pag insert.

kung date ang field na insertan: #" & txtDate.text "# tangtanga ang single qoutes.
kung number ang field na insertan: " & txtid.text & " tangtanga ang single qoutes.
kung string ang field na insertan: '" & txtPassword.text & "' Kana naay single qoutes.

Happy Coding!

[sanggano_boy]

bro. timan-e lang jud basta string or character gani imong isulod sa query string, single quote rana sya.

-2010 Cebujobline.com Team