查人人中国名人网太空堡垒 高达:VB程序问题4？详细解释代码
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/01 16:38:41
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.CursorLocation = adUseClient
con.Open "Provider=Microsoft.Jet.OLEDB.3.51;
Data Source=" & App.Path & "\dbnew.mdb;Persist Security Info=False"
Select Case Cmbcjtj.Text
Set rs = New ADODB.Recordset
con.CursorLocation = adUseClient
con.Open "Provider=Microsoft.Jet.OLEDB.3.51;
Data Source=" & App.Path & "\dbnew.mdb;Persist Security Info=False"
Select Case Cmbcjtj.Text
Set con = New ADODB.Connection 'con为ADODB的数据库连接
Set rs = New ADODB.Recordset 'rs为ADODB的记录集
con.CursorLocation = adUseClient '设置连接为用户独占方式
con.Open "Provider=Microsoft.Jet.OLEDB.3.51;
Data Source=" & App.Path & "\dbnew.mdb;Persist Security Info=False" '设置数据库连接字符串
Select Case Cmbcjtj.Text' 做一个SELECT 选取Cmbcjtj.Text中的值,后面应该还有CASE***... 和end SELECT 配合