vb 操作access数据库

sduupc 2008-12-26 05:32:13
有一个vb操作数据库的例子,想改成操作access2000以上版本的,数据库不怎么熟悉,不会改了,
大家给看看吧,谢了!该例用的是data控件和dbgrid控件,想改成使用DAO3.6对象或者ADO的都可以,实现
相同点功能。
Option Explicit
Dim db As Database '一个DAO对象

Private Sub Command1_Click() '选择一个数据库
With CommonDialog1
.Filter = "数据库文件(*.mdb)|*.mdb"
.ShowOpen
End With
Text1.Text = CommonDialog1.FileName
displaytable
End Sub



Private Sub Form_Load() '初始化界面
Dim dbname As String
Adodc1.Visible = False
DataGrid1.Visible = False
Set DataGrid1.DataSource = Adodc1
dbname = App.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
dbname = dbname & "19.mdb"
Text1.Text = dbname
displaytable

End Sub




Private Sub List1_Click() '显示选择的表中的数据
Dim table_name As String
Dim sql As String
table_name = List1.List(List1.ListIndex)
sql = "SELECT * FROM " & table_name
Adodc1.Caption = table_name
Adodc1.RecordSource = sql
Adodc1.Refresh
Adodc1.Visible = True
DataGrid1.Visible = True
End Sub
Private Sub displaytable() '显示选择的数据库中的表名
Dim td As TableDef
Set db = OpenDatabase(Text1.Text)
List1.Clear
For Each td In db.TableDefs
If td.Attributes = 0 Then '仅仅显示用户表,不显示系统表
List1.AddItem td.Name
End If
Next td
db.Close
Adodc1.DatabaseName = Text1.Text
End Sub
...全文
218 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
half_bucket 2008-12-27
  • 打赏
  • 举报
回复
为DataGrid指定Adodc确实更为方便。
ZOUYONG0929 2008-12-27
  • 打赏
  • 举报
回复
我喜欢老版的 能向下兼容~
zdingyun 2008-12-26
  • 打赏
  • 举报
回复
Option Explicit
Dim tabelName(50) As String
Dim i As Integer
Dim l As Integer

Private Sub Combo1_Click()
Text1 = Combo1
End Sub

Private Sub Command1_Click()
Dim fileN As String
CommonDialog1.ShowOpen
fileN = CommonDialog1.FileName
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & fileN & ";" _
& "Persist Security Info=False;" _
& "Jet OLEDB:Database Password=123"
Set rs = New ADODB.Recordset
Set rs = cn.OpenSchema(adSchemaTables, _
Array(Empty, Empty, Empty, "TABLE"))
While Not rs.EOF
tabelName(i) = rs!TABLE_NAME
i = i + 1
rs.MoveNext
Wend
rs.Close
cn.Close
l = i - 1
For i = 0 To l
Combo1.AddItem tabelName(i)
Next
End Sub

Private Sub Form_Load()
Text1 = ""
Combo1 = ""
End Sub


http://topic.csdn.net/u/20080103/19/f7044ecf-2cb2-4b12-b41e-2f6a1b9120b4.html
是依据vbman2003的代码将ACCESS数据库的表名放入ComboBOX显示.
sduupc 2008-12-26
  • 打赏
  • 举报
回复
或者给个将数据库中的表显示在列表里,点击显示表内的内容的例子也可以!
sduupc 2008-12-26
  • 打赏
  • 举报
回复
就是用ADODC和datagrid来替换DATA和dbgrid控件,再改改源码

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧