要使vb 与sql 中的数据表是不是用那个 数据控件的？ 具体点是怎样操作的？我一点都不会的。

Question

编程实现：ADO/DAO数据对象，部件中添加ActiveX data object；(具体记不得了)；
控件实现：名字我也记不得了，一般的vb与数据库都有介绍。
祝顺利！

Answer 1

补充楼上的说明：控件实现：ADO/DAO数据对象，部件中添加Microsoft ADO data Control 6.0
编程实现：工程－>引用－>Microsoft ActiveX Data Object 2.5 (WIN2000)
                      Microsoft ActiveX Data Object 2.0 (WIN98)建议：最好使用代码连数据库，便于控制操作
给段连接数据库的代码：Public Function Get_Data(ByVal S_SQL_str As String) As Recordset  '得到记录集
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strcnn As String
    Set con = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=databasename;Data Source=servers"    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenStatic
    rs.Open S_SQL_str, con, adOpenDynamic, adLockOptimistic
    Set Get_Data = rs
    Set con = Nothing
    Set rs = Nothing
    
If Err.Number <> 0 Then
    If Err.Number = 3704 Then
        MsgBox "连接失败!" & Chr(13) & "网络不通或数据库配置出错,请与数据库管理员联系!", vbInformation, "信息！"
    Else
        MsgBox Err.Description, vbInformation, "信息！"
    End If
    Exit Function
End If
End Function

Answer 2

说明：
上面的代码，通过传递一条要操作的SQL语句得到记录集
在窗体上加一个命令按钮和一个datagrid控件，看看下面代码的效果Private Sub Command1_Click()
dim S_sql as string 
dim redset as adodb.recordset
S_sql="select * from table"set redset=Get_Data(S_sql)
set datagrid1.datasource=redset
end sub

Answer 3

象 mousean(幻想无限) 说的一样
工程－>引用－>Microsoft ActiveX Data Object 2.5 (WIN2000)
             Microsoft ActiveX Data Object 2.0 (WIN98)最好不要用控键。用程序编写软件会灵活的多~~~~