总箱数英文:VB出学者问

来源：百度文库编辑：杭州交通信息网时间：2024/04/30 17:56:11

我想在 VB中点击确定后连接一个ACCESS数据库改怎么编写代码吗 Private Sub Command2_Click()
OLE1.Class = "1.mdb"
OLE1.SourceDoc = "E:\Microsoft Visual Studio\VB98\VB练习\1.mdb"
OLE1.Action = 1
End Sub
这段代码怎么只能在控件区显示 ACCESS图标呀请好心人告诉我一下谢谢了我是个菜鸟请说详细一点了

Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的数据库路径及名字;Persist Security Info=False"
rs.CursorLocation = adUseClient
rs.Open "select * from 表", cnn, adOpenDynamic, adLockPessimistic
If rs.RecordCount > 0 Then
Text1.Text = rs.Fields(0).Value
End If
End Sub

VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问电脑出学者的问题 VISUAL FOXPRO的出学者！