mysql只提供了ODBC访问方式,会用ODBC吗
解决方案 »
- 新手问怎么样用execute在access执行SQL语句,
- 如何用VB调用多个输入参数变量的数据库存储过程脚本
- VB如何改共享
- VB base64编码问题
- ■■■各位给我儿子取个名字吧?进者有分。姓孟,二字,三字均可。最好有“梦”的谐音,没有也可。谢了。
- StatusBar控件和ToolBar控件的背景色
- 谁会谁来教教我??
- asp导出execl合并上下两行代码怎么写
- VB关于求图像rbg其中的某一分量在某一范围值的总和.
- 高分求教一个组件注册方面的问题(用VB所写)
- datareport 的问题,帮定recordset 的时候出了问题:变量或着类型不正确!
- crystlsreprot,在打開報表前查出符合條件的記錄數?
接下来,就很简单了Dim cn As New Connection
Dim rs As New Recordset
Public Function ConnectDb() As Boolean
With cn
If .State = adStateOpen Then .Close
.CursorLocation = adUseClient
.ConnectionString = "Dsn=DSN名字"
.Open
End With With rs
Set .ActiveConnection = cn
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "SQL语句"
End With
End Function
CnnStr ="DRIVER=MySQL;Server=192.168.0.108;DataBase=gsales;Uid=root;Pwd=;
"
Cn.Open CnnStr