一个界面上有adodc1和datagrid1和一个按钮,用ODBC和数据库连接,要求一按按钮能显示数据库中某张表的记录。想问在adodc1的属性中‘记录源’这里怎么设置,datagrid1的属性怎么设置以及在按钮事件中如何写代码?还有如果要打印在datagrid1中显示的东西,应该如何操作?请大家帮忙解决。谢谢。

解决方案 »

  1.   

    工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)    Dim CN   As New ADODB.Connection                '定义数据库的连接
        Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
        CN.Open    Rs.CursorLocation = adUseClient
        Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic    Set DataGrid1.DataSource = Rs
      

  2.   

    上面是不用控件的方法
    Adodc需要设置Connectionstring属性连接好数据库,然后再设置RecordSource属性
    最后设置DataGrid数据源
        Set DataGrid1.DataSource = Adodc1