1,451
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
DengXingJie 2006-07-04
- 打赏
- 举报
在Cn.Open前加一句Cn.cursorlocation=aduseclient也可以
faysky2 2006-07-03
- 打赏
- 举报
rec1.cursorlocation=aduseclient '<<<<<<<<<<<<
rec1.Open "select * f ...
rec1.Open "select * f ...
如风 2006-07-03
- 打赏
- 举报
不行啊,会弹出个"行集合不能做为标签",怎么办?代码是下面:
STR = "Driver={MySQL ODBC 3.51 _ Driver};database=hmfp;Server=127.0.0.1;UID=root;port=3306;option=3"
Dim conn1 As New ADODB.Connection
Dim rec1 As New ADODB.Recordset
conn1.ConnectionString = STR
conn1.Open
rec1.Open "select * from kh", conn1, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rec1
STR = "Driver={MySQL ODBC 3.51 _ Driver};database=hmfp;Server=127.0.0.1;UID=root;port=3306;option=3"
Dim conn1 As New ADODB.Connection
Dim rec1 As New ADODB.Recordset
conn1.ConnectionString = STR
conn1.Open
rec1.Open "select * from kh", conn1, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rec1
DengXingJie 2006-07-03
- 打赏
- 举报
這跟SQL沒什麼分別
Set DataGrid.DataSource=Rst
只是連接數據庫的方法有點不同而已
Cn.ConnectionString = "Provider=MySQLProv;Data Source=mydb;User Id=UserName;Password=asdasd;"
Cn.Open
Set DataGrid.DataSource=Rst
只是連接數據庫的方法有點不同而已
Cn.ConnectionString = "Provider=MySQLProv;Data Source=mydb;User Id=UserName;Password=asdasd;"
Cn.Open
