我的VB新问题
'===========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
阅读更多
想对作者说点什么? 我来说一句

怎样用VB 打开我的电脑

2010年03月25日 74KB 下载

vb编写人工智能对话

2014年06月30日 32KB 下载

我是猪是一个VBS代码关机代码

2013年03月25日 629B 下载

新问题

遇到此问题无法解决

xxok01 xxok01

2015-12-20 12:05:17

阅读数:143

没有更多推荐了,返回首页

不良信息举报

我的VB新问题

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭