关于 Private Sub Form_Load()
Dim CN As New adodb.Connection ‘定义数据库的连接存放数据和代码
Dim rs As New adodb.Recordset
CN.ConnectionString = “Provider=sqloledb;Data Source=HEBEIDAI-32CDD8;Initial Catalog=vote;User Id=sa;Password=”
CN.Open
rs.CursorLocation = adUseClient
rs.Open “select * from jiemu group by jiemumingcheng”, CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
的问题
楼上说得对,请添加DATAGRID控件.
一.你在你的VB中新建一个数据工程,在窗体的LOAD事件中加进你的代码,然后从工具箱中找DATAGRID控件添加到该窗体上,再进行调试,就不会出错.因为你的代码Set DataGrid1.DataSource = rs中用到了DataGrid1,所以必需在窗体中有DataGrid1对象.
二.或由工程(P)菜单中选中部件(O),然后在部件中选中
MICROSOFT DATAGRID CONTROL 6.0 (OLEDB)部件,工具箱中就有该控件了.
