我的VB新问题

最新推荐文章于 2024-05-23 19:59:11 发布

Steven_xg

最新推荐文章于 2024-05-23 19:59:11 发布

阅读量739

点赞数

文章标签： vb datagrid security string

本文链接：https://blog.csdn.net/Steven_xg/article/details/1816297

版权

'===========2007-10-09==================
Dim Conn As New ADODB.Connection
Dim RsTest As New ADODB.Recordset
Dim strSql As String

Private Sub cmdFind_Click()
    RsTest.Requery
    'RsTest.Find "userid=" & Val(txtId.Text)

    RsTest.Find "username='" & Trim(txtId.Text) & "'"
End Sub

Private Sub Form_Load()
    Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=chiptronix;Initial Catalog=test;Data Source=CHIPCOMPUTER"
    Conn.Open strConnect, "chiptronix", "chiptronix"

    strSql = "Select * from appSysUser"

    RsTest.Open strSql, Conn, adOpenDynamic, adLockOptimistic
    'Set RsTest = Conn.Execute(strSql)

    RsTest.MoveFirst

    Set dgTest.DataSource = RsTest
    '为什么这行会有问题？？？？？ dgTest为dataGrid控件
    'Run-time error '7004'
    'The rowset is not bookmarkable.

End Sub