日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 运维知识 > 数据库 >内容正文

数据库

在vb连接mysql数据库_VB连接Mysql数据库

發布時間:2023/12/9 数据库 31 豆豆
生活随笔 收集整理的這篇文章主要介紹了 在vb连接mysql数据库_VB连接Mysql数据库 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

然后下載安裝MysqL,odbc驅動

需要添加ado'菜單"工程"->"引用" 找 Microsoft ActiveX Data Object.... 或者簡單點找到ado控件 扔到窗口上 再刪除 也行

在vb中連接數據庫的代碼:

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

' 定義數據庫連接字符串變量

Dim strCn As String

' 定義數據庫連接參數變量

Dim db_host As String

Dim db_user As String

Dim db_pass As String

Dim db_data As String

' 定義 sql 語句變量

Dim sql As String

' 初始化數據庫連接變量

db_host = "localhost"

db_user = "root" ‘用戶名

db_pass = "root" ’用戶密碼

db_data = "radio" '數據庫名

' MysqL ODBC 連接參數

'+------------+---------------------+----------------------------------+

'| 參數名 | 默認值 | 說明 |

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

'| user | ODBC (on Windows) | MysqL 用戶名 |

'| server | localhost | MysqL 服務器地址 |

'| database | | 默認連接數據庫 |

'| option | 0 | 參數用以指定連接的工作方式 |

'| port | 3306 | 連接端口 |

'| stmt | | 一段聲明,可以在連接數據庫后運行 |

'| password | | MysqL 用戶密碼 |

'| socket | | (略) |

'+------------+---------------------+----------------------------------+

' 詳細查看官方說明

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

strCn = "DRIVER={MysqL ODBC 3.51 Driver};" & _

"SERVER=" & db_host & ";" & _

"DATABASE=" & db_data & ";" & _

"UID=" & db_user & ";PWD=" & db_pass & ";" & _

"OPTION=3;stmt=SET NAMES GB2312"

' stmt=SET NAMES GB2312

' 這句是設置數據庫編碼方式

' 中文操作系統需要設置成 GB2312

' 這樣中文才不會有問題

' 版本要求 MysqL 4.1+

' 連接數據庫

cn.Open strCn

' 設置該屬性,使 recordcount 和 absolutepage 屬性可用

cn.CursorLocation = adUseClient

' 訪問表 table1

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

rs.Open sql,cn

Dim nicheng As String

Dim xinqing As String

'加載用戶昵稱

nicheng = rs.Fields(0)

Label1.Caption = nicheng

'加載用戶心情短語

xinqing = rs.Fields(1)

Label2.Caption = xinqing

'鼠標放在心情短語提示短語詳細信息

Label2.ToolTipText = xinqing

'加載網絡圖片

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

總結

以上是編程之家為你收集整理的VB連接Mysql數據庫全部內容,希望文章能夠幫你解決VB連接Mysql數據庫所遇到的程序開發問題。

如果覺得編程之家網站內容還不錯,歡迎將編程之家網站推薦給程序員好友。

本圖文內容來源于網友網絡收集整理提供,作為學習參考使用,版權屬于原作者。

如您喜歡交流學習經驗,點擊鏈接加入交流1群:1065694478(已滿)交流2群:163560250

總結

以上是生活随笔為你收集整理的在vb连接mysql数据库_VB连接Mysql数据库的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。