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 '| user | ODBC (on Windows) | MySQL 用户名 |

34 '| server | localhost | MySQL 服务器地址 |

35 '| database | | 默认连接数据库 |

36 '| option | 0 | 参数用以指定连接的工作方式 |

37 '| port | 3306 | 连接端口 |

38 '| stmt | | 一段声明, 可以在连接数据库后运行 |

39 '| password | | MySQL 用户密码 |

40 '| socket | | (略) |

41 '+------------+---------------------+----------------------------------+

42

43

44 '详细查看官方说明

45 'http://dev.mysql.com/doc/refman/5.0/en/myodbc-configuration-connection-parameters.html

46

47

48 strCn = "DRIVER={MySQL ODBC 3.51 Driver};" &_49 "SERVER=" & db_host & ";" &_50 "DATABASE=" & db_data & ";" &_51 "UID=" & db_user & ";PWD=" & db_pass & ";" &_52 "OPTION=3;stmt=SET NAMES GB2312"

53

54

55 'stmt=SET NAMES GB2312

56 '这句是设置数据库编码方式

57 '中文操作系统需要设置成 GB2312

58 '这样中文才不会有问题

59 '版本要求 mysql 4.1+

60

61

62 '连接数据库

63 cn.Open strCn64 '设置该属性, 使 recordcount 和 absolutepage 属性可用

65 cn.CursorLocation =adUseClient66

67

68 '访问表 table1

69 sql = "select nicheng,xinqing from nichengandxinqing where uid='1'"

70 rs.Open sql, cn71

72 Dim nicheng As String

73 Dim xinqing As String

74

75

76 '加载用户昵称

77 nicheng = rs.Fields(0)78 Label1.Caption =nicheng79

80

81 '加载用户心情短语

82 xinqing = rs.Fields(1)83 Label2.Caption =xinqing84 '鼠标放在心情短语提示短语详细信息

85 Label2.ToolTipText =xinqing86

87 '加载网络图片

88 Image1.Picture = LoadPicture("http://hi.csdn.net/attachment/201201/5/8747069_1325751084ZiD4.jpg")