怎么查询怎么显示在DataGrid1，各位大虾看代码！！！

[zhanghuang7979]

在哪里补一句，怎么补？

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strCnn As String
Dim sql As String

strCnn = "Provider=SQLOLEDB.1;Password=chang;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=localhost"

Set cn = New ADODB.Connection
cn.Open strCnn

Dim cm As New ADODB.Command
cm.ActiveConnection = cn
cm.CommandText = "select * from b"

cm.CommandType = adCmdText
cm.CommandTimeout = 15

Set re = Nothing
cn.Close
Set cn = Nothing

End Sub

[zhanghuang7979]

各位大虾赶紧帮帮忙啊，我是新手！！！！！！！

[zdingyun]

    Dim sql As String
    sql = "select * from jishijilu" ' where madanhao='1'"
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, cn, 1, 1, 1
    rs.MoveFirst
    rs.MoveLast
    Set DataGrid1.DataSource = rs

[zdingyun]

[Quote=引用 2 楼 zdingyun 的回复:]
VB code
Dim sql As String
sql = "select * from jishijilu" ' where madanhao='1'"
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persi……
[/Quote]

    Dim cn As New ADODB.Connection '定义数据库的连接
    Dim rs As New ADODB.Recordset
    Dim sql As String
    sql = "select * from jishijilu" ' where madanhao='1'"
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, cn, 1, 1, 1
    rs.MoveFirst
    rs.MoveLast
    Set DataGrid1.DataSource = rs

[zhanghuang7979]

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String

sql = "select * from b"

cn = "Provider=SQLOLEDB.1;Password=chang;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=localhost"


cn.Open
rs.CursorLocation = adUseClient
rs.Open sql, cn, 1, 1, 1
rs.MoveFirst
rs.MoveLast
Set DataGrid1.DataSource = rs

End Sub

这样写了，还是不行。 报对象变量或With块变量未设置。

[zhanghuang7979]

可以了！ 谢谢zdingyun。

[zhanghuang7979]

再请问一下，如果是更新和添加该怎么做呢。