vb连接access时出现"找不到可安装的 ISAM "请大师帮忙啊,在线等待 vb6.0升级到了sp6,access03是完整安装
PrivateSubMDIForm_Load()Con.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_"Da...
Private Sub MDIForm_Load()
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Date Source=G:\db2.mdb"
Con.Open---在这提示出现的问题
Cmd.ActiveConnection = Con
Cmd.CommandTimeout = 15
Cmd.CommandType = adCmdText
End Sub 展开
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Date Source=G:\db2.mdb"
Con.Open---在这提示出现的问题
Cmd.ActiveConnection = Con
Cmd.CommandTimeout = 15
Cmd.CommandType = adCmdText
End Sub 展开
展开全部
strSQL = "select * from 表名"
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\db2.mdb;Persist Security "
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
Set rsttitles = New ADODB.Recordset
rsttitles.CursorLocation = adUseClient
rsttitles.Open strSQL, cnn1, 1, 3
Set Adodc1.Recordset = rsttitles
Set DataGrid1.DataSource = rsttitles
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\db2.mdb;Persist Security "
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
Set rsttitles = New ADODB.Recordset
rsttitles.CursorLocation = adUseClient
rsttitles.Open strSQL, cnn1, 1, 3
Set Adodc1.Recordset = rsttitles
Set DataGrid1.DataSource = rsttitles
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询