VB如何制作查询数据库Access中表的名称？
如access数据库名称为123，数据库地址在VB文件夹内，数据库中有两个表，为表A和表B，如何通过按钮实现查询，将两个表的名称A和B，显示在VB窗体中的下拉菜单控件中（combobox）。
Private Sub Command1_Click()
Dim Rs As ADODB.Recordset
Dim Cn As ADODB.Connection
Set Cn = New ADODB.Connection
'假设123.mdb在C:\下，根据你的文件位置修改以下语句
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\123.mdb;Persist Security Info=False"
Set Rs = Cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, Empty))
Do Until Rs.EOF
If Left(Rs!table_name, 4) <> "MSys" Then '以MSys开头的是ACCESS内部表
Combo1.AddItem Rs!table_name
End If
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub追问
你好，首先感谢你的回答，还有个问题想请教下，如果我想查询文件夹456中的Access数据库文件的名字，同样显示在combox中，用什么样的办法呢？
追答Private Sub Command1_Click()Dim Flist As FileListBox
Set Flist = Me.Controls.Add("VB.FilelistBox", "F")
Flist.Path = "C:\" '这里是你的路径，
Flist.Pattern = "*.mdb" '数据库文件的扩展名
Dim i As Integer
For i = 0 To Flist.ListCount - 1
Combo1.AddItem Flist.List(i)
Next
Me.Controls.Remove Flist
Set Flist = Nothing
End Sub
VB编程如何实现ACCESS数据库记录的查询?
创建ADO连接对象并建立与数据库的连接。 创建一个命令对象，并设置其类型为“查询”。 在命令对象中编写SQL查询语句，例如：`"SELECT * FROM Students WHERE Age = '99'"`。 执行命令对象，并获取查询结果集。 遍历结果集，获取每条记录的信息。 关闭连接对象以释放资源。 二、新增...
怎么在VB中通过某个条件查询access数据库?并显示出所有字段
1.在VB界面选“工程”菜单－》“部件”菜单项，系统打开“部件”对话框 选择2个ADO控件，即“Microsoft ADO Data Control 6.0”（简称ADODC）和“Microsoft DataGrid Control 6.0”。这两个控件前者用来连接数据库，用于以表格形式显示数据库表的内容。2.在VB界面中加入ADODC及DataGrid，设置ADODC的Conn...
如何用VB获取ACCESS数据库的所有表名
Dim Gconnection As ADODB.Connection Sub getTableName()Set Gconnection = New ADODB.Connection Gconnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Redeem.mdb;Persist Security Info=False"Set TableSet = Gconnection.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, Empty))...
VB如何查找ACCESS数据库中的所有表
Public xs As ADODB.Recordset '记录集对象用来存放查找结果 Sub Connect() '连接到DB1数据库 Set conn = New ADODB.Connection conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\\db1.mdb"conn.Open End Sub 如果有一个数据库db1.mdb它里面有一个表...
VB实现ACCESS数据库记录的查询,新增,删除,修改的代码是什么?
“修改”按钮的程序 \\x0d\\x0aPrivate Sub cmdEdit_Click() \\x0d\\x0asql = "select * from 停时统计 where date = cdate('" & Text8.Text & "') and ycqk = '" & Combo1.Text & "'and id = '" & DataGrid1.Columns(2).CellText(DataGrid1.Bookmark) & "'" \\x0d\\x0...
vb如何获取access数据库的所有表和字段名??
给LZ一个代码可以搜索ACCESS数据库内所有表名的代码。Option Explicit Dim TableSet As ADODB.Recordset Dim Gconnection As ADODB.Connection Dim lianjie As StringSub getTableName() lianjie = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=J:\\LDGZ\\南汇40M^2New\\ldgz30_wd201002...
关于VB查询ACCESS数据库的问题
在编程中，我们需要处理和查询数据库以获取所需数据。对于查询ACCESS数据库并获取特定字段内容的问题，我们需要定义一个ADODB.Recordset对象来执行操作。这可通过以下代码实现：定义ADODB.Recordset对象：Public rs As New ADODB.Recordset 接下来，使用Open方法打开查询。这里，我们查询数据库中的wjy字段，相应...
如何在vb text文本框控件中,显示access数据库中的表
1：Access，建立数据库，数据库命名为Database1.mdb。（注意：这里的后缀是MDB,如果Access是2007版本的，保存的时候要另存为2003版本的才行，因为，VB不直接支持07版的accdb后缀格式。）2：数据库建立后就进入了数据表界面，可以输入数据了，输完以后CRRL+S保存，输入表名，这里表名为test，ok，准备...
VB如何查询一个ACCESS数据库中的相应字段内容
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim conn As SqlConnection = New SqlConnection("server=(local);uid=sa;pwd=sa;database=进货表")Dim sql As String = "select u_id,u_name from 进货表 where (u_id='"...
VB 读取ACCESS数据库中所有表名
Public con As New Connection '3.在form_load里加上代码,连接数据库 con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\\数据库.mdb;Persist Security Info=False;"'4.加一个按钮"获取所有表名",加一个文本框显示表名,代码:dim rs as recordset text1.text=""rs=...
