爱问知识人 爱问教育 医院库

各位帮我看看这段代码vb连接sql的问题

首页

各位帮我看看这段代码vb连接sql的问题

 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

提交回答
好评回答
  • 2006-03-23 21:37:25
    楼上说得对,请添加DATAGRID控件.
    一.你在你的VB中新建一个数据工程,在窗体的LOAD事件中加进你的代码,然后从工具箱中找DATAGRID控件添加到该窗体上,再进行调试,就不会出错.因为你的代码Set DataGrid1.DataSource = rs中用到了DataGrid1,所以必需在窗体中有DataGrid1对象.
    二.或由工程(P)菜单中选中部件(O),然后在部件中选中
    MICROSOFT DATAGRID CONTROL 6.0 (OLEDB)部件,工具箱中就有该控件了.

    z***

    2006-03-23 21:37:25

其他答案

    2006-03-29 14:56:01
  • 直接使用ADO对象进行程序设计,可以使我们的程序更有弹性、更能掌握,同时也更有肋于了解ADO各个对象的运作情形。
    不过,使用ADO对象前,先将ADO引用到VB开发环境
    “工程/引用”:Microsoft ActiveX Data Objects 2.0 Library和ActiveX Data Objects Recordset 2.0 Library这两个选项让VB知道引用这些ADO对象。
    否则,系统会提示你需要对象。

    1***

    2006-03-29 14:56:01

  • 2006-03-27 02:08:54
  • 把rs 改成adodc1 试试

    单***

    2006-03-27 02:08:54

  • 2006-03-22 10:57:21
  • DataGrid1是否添加了阿

    春***

    2006-03-22 10:57:21

类似问题

换一换
  • VB 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 172-191
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):