Dim CON
Dim RSPrivate Sub Form_Load()
Set CON = CreateObject("adodb.connection")
CON.Open "UID=CDITS;PWD=CDITS;driver={Microsoft ODBC for Oracle};SERVER=CDITS;"
Dim mysql As String
mysql = "select distinct(vid) from HTELEFEEINFORMATION where driverid=0 "
CON.Execute mysql
Set RS = CON.Execute(mysql)
Do While Not RS.EOF
Text1.Text = Text1.Text & RS("vid") & Chr(13) & Chr(10)
RS.MoveNext
LoopEnd Sub
Dim RSPrivate Sub Form_Load()
Set CON = CreateObject("adodb.connection")
CON.Open "UID=CDITS;PWD=CDITS;driver={Microsoft ODBC for Oracle};SERVER=CDITS;"
Dim mysql As String
mysql = "select distinct(vid) from HTELEFEEINFORMATION where driverid=0 "
CON.Execute mysql
Set RS = CON.Execute(mysql)
Do While Not RS.EOF
Text1.Text = Text1.Text & RS("vid") & Chr(13) & Chr(10)
RS.MoveNext
LoopEnd Sub
你上面的问题是MDB版本太高了, 改用VB自带的东西建库,或者转成97的格式的数据库
打Sp5
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb"
应为4.0;
data默认为:3.51
请问 ding_alading()
连接字符串在什么地方设。
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\somepath\myDb.mdb;" & _
"User Id=admin;" & _
"Password=;"其中的oConn 是什么控件?或对象?
先选用MICROSOFT ADO DATA CONTROL 6.0(OLEDB)
MICROSOFT DATAGRID CONTROL 6.0 (OLEDB)在ADODC控件的属性中选择数据驱动涵数.
代码如下:Dim oConn As ADODB.Connection
Dim rs1 As ADODB.recordseSet rs1 = New ADODB.recordse
Set oConn = New ADODB.Connection
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=.\test.mdb;" & _
"User Id=admin;" & _
"Password=;"
strsql = "Select * from name"
rs1.Open strsql, oConn, 3, 3
rs1.AddNew
rs1.Fields("Name") = MyName
rs1.Update
在Dim rs1 As ADODB.Recordse 这句报错
error message is “用户类型未定义”请指教!!
使用ADO时,要在“工程”菜单的“引用”中选中Microsoft ActiveX Data Objects 2.x Library 和 Microsoft ActiveX Data Objects Recordset 2.x。
另外你的“Dim rs1 As ADODB.recordse”应改为:"Dim rs1 As ADODB.recordset",下同。