希望能給個rs.find的例子
如題，謝謝
2007-04-13 19:06
Private Sub Command1_Click()
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
db.Open "provider=microsoft.jet.oledb.4.0;" & "data source=" + App.Path + "/finance.mdb"
rs.Open "select * from user_info", db
rs.MoveFirst
If Trim(Text1.Text) = "" Then
MsgBox "請輸入一個用戶名來進行管理", vbOKOnly + vbInformation, "注意"
Else
rs.Find "u_name ='" & Trim(Text1.Text) & "'"
If rs.Eof Then
MsgBox "當前沒有這個用戶，你需要增加這個用戶嗎？", vbYesNo + vbInformation, "注意"
End If
End If
End Sub
2007-04-13 22:04
If Trim(Text1.Text) = "" Then
MsgBox "請輸入一個用戶名來進行管理", vbOKOnly + vbInformation, "注意"
end ifrs.Open "select * from user_info where u_name='" & Trim(Text1.Text) & "'", db
If rs.Eof Then
MsgBox "當前沒有這個用戶，你需要增加這個用戶嗎？", vbYesNo + vbInformation, "注意"
End If
End Sub
2007-04-15 15:07