UC知道VB连接ACCESS数据库
来源：百度知道 编辑：UC知道 时间：2024/05/22 03:50:52
先说一下我想实现的功能嘛,就是点击一个按钮,调出一个表单.表单文本框中显示的为,从数据库中读出的内容.
但是我写的程序始终出现那个对话框"编译错误：用定义类型未定义"
所以麻烦哪位能给我详解一下.谢谢.
con.CursorLocation = adUseClient '以客户端的方式打开
这句的作用是什么
我说一下我程序的功能：
表单1添加记录进数据库，表单2显示出数据库中的内容，所以要用到模块。具体代码该怎么写。请帮帮忙。谢谢。
最好分开写，我好看懂。下面的答案就是有点混。
但是我写的程序始终出现那个对话框"编译错误：用定义类型未定义"
所以麻烦哪位能给我详解一下.谢谢.
con.CursorLocation = adUseClient '以客户端的方式打开
这句的作用是什么
我说一下我程序的功能：
表单1添加记录进数据库，表单2显示出数据库中的内容，所以要用到模块。具体代码该怎么写。请帮帮忙。谢谢。
最好分开写，我好看懂。下面的答案就是有点混。
定义类型未定义
例如.dim rec as new recondset
这里的rec就是自定义...你用的有可能是从别的地方考过来的。用时没有在声时一下,所以会有这样的结果.
_______
以下是参考:
________________
模块:连接数据库用地...
___________________
Public con As New Connection '定义数据连接，公共变量
Public coon, coom As String
Sub Main()
ChDir App.Path '转换相对路径
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cq.mdb;Persist Security Info=False"
'定义数据库连接
con.CursorLocation = adUseClient '以客户端的方式打开
con.Open ' 打开连接
登陆.Show
End Sub
________________
这是窗口放置datagrid表格的代码:
_________________
Private Sub Form_Load()
If rec.State = adStateOpen Then rec.Close
SQL = "select * from jbxx" '定义sql查询语句
rec.Open SQL, con, adOpenStatic, adLockOptimistic '打开记录集
Set dg1.DataSource = rec '用datagrid控件显示记录集
End Sub
____________
dg1为datagrid控件名称...
用时记得修改...
首先添加datagri