你试试这样做,引用ado Dim Con As ADODB.Connection Dim rs As ADODB.Recordset Set Con = New ADODB.Connection strCon = "driver=mysql odbc 3.51 driver;" & _ "server=服务器IP;" & _ "database=数据库名称;" & _ "port=3306;" & _ "uid=用户名;" & _ "pwd=在这里写口令" Con.Open strCon Set rs = New ADODB.Recordset '添加记录 strsql="select * from table" rs.Open strsql, Con, adOpenKeyset, adLockOptimistic rs.addnew rs!字段1=text1.text rs!字段2=text2.text ........ rs.update rs.close set rs=nothing '修改记录 strsql="select * from table where id=1" rs.Open strsql, Con, adOpenKeyset, adLockOptimistic rs!字段1=text1.text rs!字段2=text2.text ........ rs.update rs.close set rs=nothing
'删除记录 strsql="delete from table where id=1" rs.Open strsql, Con, adOpenKeyset, adLockOptimistic
引用Ado dim rs as new adodb.recordset dim Pubconn as new adodb.connection pubconn.open 连接子窜 Rs.open StrSQl,pubconn,1,1 然后可以Rs!Field取值 插入更新什么的 只要 Dim db as new adodb.command db.commandtext="" db.execute
Dim Con As ADODB.Connection
Dim rs As ADODB.Recordset
Set Con = New ADODB.Connection
strCon = "driver=mysql odbc 3.51 driver;" & _
"server=服务器IP;" & _
"database=数据库名称;" & _
"port=3306;" & _
"uid=用户名;" & _
"pwd=在这里写口令"
Con.Open strCon
Set rs = New ADODB.Recordset
'添加记录
strsql="select * from table"
rs.Open strsql, Con, adOpenKeyset, adLockOptimistic
rs.addnew
rs!字段1=text1.text
rs!字段2=text2.text
........
rs.update
rs.close
set rs=nothing
'修改记录
strsql="select * from table where id=1"
rs.Open strsql, Con, adOpenKeyset, adLockOptimistic
rs!字段1=text1.text
rs!字段2=text2.text
........
rs.update
rs.close
set rs=nothing
'删除记录
strsql="delete from table where id=1"
rs.Open strsql, Con, adOpenKeyset, adLockOptimistic
dim rs as new adodb.recordset
dim Pubconn as new adodb.connection
pubconn.open 连接子窜
Rs.open StrSQl,pubconn,1,1
然后可以Rs!Field取值
插入更新什么的
只要 Dim db as new adodb.command
db.commandtext=""
db.execute
再问一下,
链接远程的,应该怎么表示.
------------------------
strCon = "driver=mysql odbc 3.51 driver;" & _
"server=服务器IP;" & _
"database=数据库名称;" & _
"port=3306;" & _
"uid=用户名;" & _
"pwd=在这里写口令"------------------------------------
oConn.Open "Driver={mySQL};" & _
"Server=服务器IP;" & _
"Port=3306;" & _
"Option=131072;" & _
"Stmt=;" & _
"Database=mydb;" & _
"Uid=myUsername;" & _
"Pwd=myPassword;"