如何把这表的名称加入到一个组合框中并进行打开操作?

Jason78 2005-09-20 09:19:37
Private Sub Combo1_Click()
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=database.mdb"
Rs.CursorType = adOpenStatic

Combo1.AddItem "" ????
Rs.Open "select * from ??", Connstr ???????????
……
End Sub

我的database里面有十个表temp1,temp2,……,temp10。现在我想把这十个表的名称加入到一个组合框中,假如点击到组合框中的temp2,那么就对表temp2里的进行操作。请问把database中表的名称加入到Combo1中的语句怎么写啊,然后又是怎么打开的?就是标记?的那部分如何写,请前辈们赐教,谢谢。
...全文
82 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
Jason78 2005-09-20
  • 打赏
  • 举报
回复
谢谢faysky2() ,

程序运行通过。
Jason78 2005-09-20
  • 打赏
  • 举报
回复
不会写语句才上来求助的,
多谢啊:)
vansoft 2005-09-20
  • 打赏
  • 举报
回复
ACCESS數據庫中有系統表,從系統表可以搜索到所有的表名,
包括系統表和用戶的表,然後循環加到下拉列表框裏。
faysky2 2005-09-20
  • 打赏
  • 举报
回复
Private Sub Combo1_Click()
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=database.mdb"
Rs.CursorType = adOpenStatic
Rs.Open "select * from " & Combo1.Text, Connstr ???????????
……
End Sub
faysky2 2005-09-20
  • 打赏
  • 举报
回复
Private Sub Form_Load()
Dim adoCN As New ADODB.Connection '定义数据库的连接
Dim strCnn As New ADODB.Recordset
Dim rstSchema As New ADODB.Recordset
Dim I As Integer
str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Northwind.MDB;Persist Security Info=False"
adoCN.Open str1
Set rstSchema = adoCN.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
If rstSchema!TABLE_TYPE = "TABLE" Then
Combo1.AddItem rstSchema!TABLE_NAME'往Combo1添加表
End If
rstSchema.MoveNext
Loop
rstSchema.Close
adoCN.Close
End Sub
fishzone 2005-09-20
  • 打赏
  • 举报
回复
Private Sub comOK_Click()
Dim Str As String
Me.MousePointer = 11
'str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & txtAccessFile.Text & ";Password=" & txtAccessPassWord

'str = "Provider=Microsoft.Jet.OLEDB.4.0;Password=" & txtAccessPassWord & ";User ID=Admin;Data Source=" & txtAccessFile.Text & ";"
If optAccess.Value = True Then
Str = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=" & txtAccessPassWord.Text & ";Data Source=" & txtAccessFile.Text & ";Persist Security Info=False"
ElseIf optODBC.Value = True Then
Str = "PROVIDER=MSDASQL;DSN=" & cobODBCSource.Text & ";UID=" & txtODBCUserName.Text & ";PWD=" & txtODBCPassWord.Text & ";"
ElseIf optSQLServer.Value = True Then
Str = "Provider=SQLOLEDB.1;User ID=" & txtSqlUserName.Text & ";PassWord=" & txtSqlPassWord.Text & ";Initial Catalog=" & txtSqlDataBase.Text & ";Data Source=" & txtSQLServerName.Text
End If
'Debug.Print str
On Error GoTo MyErr

Set CN = New ADODB.Connection
CN.Open Str

Set RS = CN.OpenSchema(adSchemaTables)
cobTable.Clear
Do Until RS.EOF
If RS("TABLE_TYPE") = "TABLE" Then
cobTable.AddItem RS("TABLE_NAME") & ""
End If
RS.MoveNext
Loop
RS.Close

Set RS = New ADODB.Recordset
Set RS.ActiveConnection = CN
RS.CursorLocation = adUseClient
RS.LockType = adLockOptimistic
RS.CursorType = adOpenStatic

strTableName = ""

cobTable.Enabled = True
Me.MousePointer = 0
Exit Sub
MyErr:
MsgBox Err.Description, , "Error " & Err.Number
Debug.Print Err.Number & " " & Err.Description
Err.Clear
Me.MousePointer = 0
End Sub
faysky2 2005-09-20
  • 打赏
  • 举报
回复
这里有:
http://www.softexam.cn/tech/details.asp?catalogf=7&catalogs=36&catalogt=0&article_id=10340
Jason78 2005-09-20
  • 打赏
  • 举报
回复
请大虾们指点一二啊

7,759

社区成员

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

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