关于VB连接ACCESS数据库的问题~
'在窗口上放一个grid,放一个adodc '这将成为你学习VB数据库编程最重要的,最有用的一步'其实其它语言也是这样的'他将使你走进编程的大门Public MyConnection As New ADODB。 Connection '定义数据库对象Public MyRecordset As New ADODB。Recordset '定义记录集对象Public DBName As String '定义数据库名称变量Public Status As Boolean '定义连接数据库的状态变量Private Sub Form_Load() Dim sql As String '生成表上...全部
'在窗口上放一个grid,放一个adodc '这将成为你学习VB数据库编程最重要的,最有用的一步'其实其它语言也是这样的'他将使你走进编程的大门Public MyConnection As New ADODB。
Connection '定义数据库对象Public MyRecordset As New ADODB。Recordset '定义记录集对象Public DBName As String '定义数据库名称变量Public Status As Boolean '定义连接数据库的状态变量Private Sub Form_Load() Dim sql As String '生成表上面部分的字符 DBName = App。
Path & "\db1。mdb" '数据库路径 '设置连接的属性 With MyConnection 。Provider = "Microsoft。Jet。OLEDB。
4。0" '连接引擎 。Mode = adModeShareExclusive '独占打开 。Open DBName '打开数据库 End With Set MyRecordset = Nothing '让结果集等于空 sql = "SELECT * FROM tab_dept AS t" '为查询部门数定义SQL '设置结果集的各种属性 With MyRecordset 。
ActiveConnection = MyConnection 。CursorType = adOpenStatic 。LockType = adLockOptimistic 。
CursorLocation = adUseClient 。Open sql, MyConnection, , , adCmdText End With Set DataGrid1。
DataSource = MyRecordset '结果集赋结表格End Sub。收起