菜鸟问题：ADO、DataGrid不会用，请前辈帮忙（在线等待）

Question

我第一次用VB、对ODBC也不太熟
我想查看SQLserver 里自建的一个表的内容，在master里，只有name、ago两厢。
我按书上一步步的做：
却提示“没有指定记录源，没有为命令对象设置命令“我想我在设ODBC时只设了数据库没有到表，应该有点原因吧憋了好几天，还请各位多指教
Private Sub Form_Load()
Dim sql   As String
Dim strsql As String
sql = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
cn.Open sql
rs.CursorLocation = adUseClient
rs.Open "biao", cn, adOpenDynamic, adLockOptimisticSet InkEdit1.DataSource = rs
InkEdit1.DataField = "zd1"
End Sub

Answer 1

rs.Open "select ... from biao", cn, adOpenDynamic, adLockOptimistic

Answer 2

Public cnn2 As ADODB.Connection
Public myre As ADODB.Recordset
Public Sub Main()
Set cnn2 = New ADODB.Connection
    cnn2.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};" & _
     "dbq=" & App.Path & "\数据库名.mdb"
   cnn2.ConnectionTimeout = 30
    cnn2.CursorLocation = adUseClient
    cnn2.Open
form1.show
end sub
Private Sub Form_Load()
    Set myre = New ADODB.Recordset
     myre.Open "select * from talbe order by 编号 desc", cnn2, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = myre
end sub
      

Answer 3

1、在设置ADO之前，首先在窗体上添加一个ADO控件。在ADO控件上点击鼠标右键，选择ADODC属性或在属性页找到ConnectionString属性点击右边的“..."
2、这时将出现ConnectionString属性页，该对话框中允许通过三种不同的方式连接数据员,"
选择"使用连接字符串"只需单击"生成"文件按纽,通过选项设置自动生成连接字符串的内容,连接SQLServer数据库就用此选项.单击"生成"按纽将出现数据连接属性.
3在数据连接属性里找到"提供者"向,并选中"Microsoft OLE DB PROVIDER FOR SQL Server"
4选中"下一步",这是将转到数据连接属性里的"连接"向,首先"选择或输入服务器名称,单击板的程序,填入本机的名称;第二项是"输入等入服务器的信息",这里的设置与VB和SQL Server设置登陆相同;在第三项是选中"在服务器上选择数据库",同时在下拉列表框里选择要连接的SQL Server数据库
5电极"确定",绘到ConnectionString属性也.

Answer 4

使用ADO对象做，不用ADO控件。
你首先要在VB菜单中：
“工程”－－＞“引用”－－＞“Microsoft AxtiveX Data Objects 2.X Library”
注：2.X为版本号，如果你机子上有高版本的就用高版本的，如：2.5或2.6的。
示例：private sub command1_click()
dim adoCN as new adodb.connection'连接对象
dim rs as new adodb.recordset'记录集对象
dim strcon as string,sqlstr as string
strcon = "Provider=SQLOLEDB;Driver={SQL Server};Server=服务器名;Uid=用户名;Pwd=密码;Database=数据库名"'连接字符串
adoCN.Open strcon'打开连接(数据库)
rs.CursorLocation = adUseClient'使用客户端游标
sqlstr = "SELECT * FROM XXXX"
rs.Open strSQL, strcon,3,3
if rs.bof and rs.eof then
   msgbox "没有查询到记录!!!"
   exit sub
else
  set datagird1.datasource=rs'将记录集显示在datagrid控件中
  datagrid1.refresh
end if
end sub