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

2005-09-20 09:19:37 129 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

获取串口设备友好名称（FriendlyName）获取串口设备友好名称（FriendlyName）阅读详情

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中的语句怎么写啊，然后又是怎么打开的？就是标记?的那部分如何写，请前辈们赐教，谢谢。

...全文

WinCC组合框控件：实现PLC变量安全赋值与模式选择在工业自动化上位机开发中，人机界面（HMI）与可编程逻辑控制器（PLC）的可靠数据交互是核心基础。其原理在于通过变量绑定与事件驱动，建立从操作界面到控制器的安全数据通道。这项技术的核心价值在于提升操作安全性与系统可靠性，尤其适用于设备模式切换、配方选择等关键控制场景。通过组合框（ComboBox）控件，开发者可以预定义文本与数值的映射关系，从源头上限制输入范围，有效避免非法操作。近期技术社区中，“wincc输入变量增加确认功能”和“wincc输入输出域怎样二次确认”等热词，正反映了业界对此类安全交互机制的迫阅读详情

Jason78

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

请大虾们指点一二啊

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

相关推荐