在 工程 中 引用 Microsoft ActiveX Data objects 2.6 Library
然后
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
然后
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
解决方案 »
- 求助,关于不同窗体控件的问题
- 我有一段批处理(查找最后分区,有代码),现在想用VB来实现,大伙帮帮我?
- 如何使MSHFlexgrid的两列标题合并?
- 有什么简单的办法进行字母累加的方法?
- 关于mshflexgrid控件
- 请问如何在Word中增加文件打开保存时的加密解密功能
- 屏幕保存的问题。急!!!
- 请问public申明变量,是否只能在模块的声明中进行,我在表单sub中或表单通用中声明过,好象就算是定义为public也不作全局变量处理
- 翻了一下硬盘 找到了个早期写的小工具 大家见笑了 :)
- 如何在picturebox内,按照不同的坐标点显示不同的多行tip(一个控件内显示多个tip)
- 请问哪位高手有考勤管理系统的原代码(VB+oralce)???(救命的人在哪里?)
- 程序报错的问题,不理解,不能解决(平安夜超级烦恼,紧急求助若渴)
然后
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.open="provider=microsoft.jet,oledb,4.0;data source=c:\mydb.mdb"
strsql=select * from yourtable where fileds='"&(text.text)&"'"
rs.open sql cn
然后Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
目前ADO 的最高版本是2.6,而且你的系统中必须有sql server2000,在工程中才有Microsoft ActiveX Data objects 2.6 Library ,听说在VB .net中ADO有新的变化,你有兴趣就学学。NET 吧
呵呵,直接感谢!!!
Dim rs As ADODB.Recordset
Dim sql As String
Set cnn = New ADODB.Connection
cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=你的数据库名称"
sql = "select*from information where 条件"
Set rs = New ADODB.Recordset
rs.Open sql, cnn, adOpenKeyset, adLockOptimistic就这些不知道你是否满意 而且已经调试成功
Set MSHFlexGrid1.DataSource = rs
所以你必需在Form上加个MSHFlexGrid1