vb局域网连接mysql_VB连接MYSQL数据的方法

1 Dim cn As NewADODB.Connection2 Dim rs As NewADODB.Recordset3

4

5 '定义数据库连接字符串变量

6 Dim strCn As String

7

8

9 '定义数据库连接参数变量

10 Dim db_host As String

11 Dim db_user As String

12 Dim db_pass As String

13 Dim db_data As String

14

15

16 '定义 SQL 语句变量

17 Dim sql As String

18

19

20

21

22 '初始化数据库连接变量

23 db_host = "localhost"

24 db_user = "root"‘用户名25 db_pass = "root"’用户密码26 db_data = "radio" '数据库名

27

28

29 'MySQL ODBC 连接参数

30 '+------------+---------------------+----------------------------------+

31 '| 参数名 | 默认值 | 说明 |

32 '+------------+------------------------------------------------------–+

33 '|