vb按說(shuō)是可以連接任何數(shù)據(jù)庫(kù)的,只是看有沒(méi)有相應(yīng)的連接插件,如果沒(méi)有的話,換個(gè)數(shù)據(jù)庫(kù)吧,應(yīng)該不會(huì)影響應(yīng)用
創(chuàng)新新互聯(lián),憑借10年的做網(wǎng)站、網(wǎng)站建設(shè)經(jīng)驗(yàn),本著真心·誠(chéng)心服務(wù)的企業(yè)理念服務(wù)于成都中小企業(yè)設(shè)計(jì)網(wǎng)站有數(shù)千家案例。做網(wǎng)站建設(shè),選成都創(chuàng)新互聯(lián)公司。
連接跟
ms
sql
是一樣的,不地要求就是本機(jī)必須有mysql的組件。
VB連接MYSQL數(shù)據(jù)的方法
博客分類(lèi):
VB
VBMySQLSQLServerSQLSocket
第一步:上網(wǎng)下載mysql-connector-odbc-5.1.6-win32.msi
第二步:安裝mysql-connector-odbc-5.1.6-win32.msi
第三步:運(yùn)行VB并新建一標(biāo)準(zhǔn)EXE工程, 通過(guò)菜單工程-引用 打開(kāi)”引用”對(duì)話框, 找到 MicrosoftActiveX Data Objects x.x Library , 其中 x.x 是版本號(hào), 可能會(huì)有很多個(gè), 這里我選擇的是2.5
第四步:打開(kāi)代碼窗口, 在 Form_Load 過(guò)程中輸入下面的代碼(具體說(shuō)明在代碼的注釋中):
Vb代碼
' 定義并創(chuàng)建數(shù)據(jù)庫(kù)連接和訪問(wèn)對(duì)象
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
' 定義數(shù)據(jù)庫(kù)連接字符串變量
Dim strCn As String
' 定義數(shù)據(jù)庫(kù)連接參數(shù)變量
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String
' 定義 SQL 語(yǔ)句變量
Dim sql As String
' 初始化數(shù)據(jù)庫(kù)連接變量
db_host = "localhost"
db_user = "root"
db_pass = ""
db_data = "erqiuda"
' MySQL ODBC 連接參數(shù)
'+------------+---------------------+----------------------------------+
'| 參數(shù)名 | 默認(rèn)值 | 說(shuō)明 |
'+------------+------------------------------------------------------–+
'| user | ODBC (on Windows) | MySQL 用戶名 |
'| server | localhost | MySQL 服務(wù)器地址 |
'| database | | 默認(rèn)連接數(shù)據(jù)庫(kù) |
'| option | 0 | 參數(shù)用以指定連接的工作方式 |
'| port | 3306 | 連接端口 |
'| stmt | | 一段聲明, 可以在連接數(shù)據(jù)庫(kù)后運(yùn)行 |
'| password | | MySQL 用戶密碼 |
'| socket | | (略) |
'+------------+---------------------+----------------------------------+
' 詳細(xì)查看官方說(shuō)明
'
strCn = "DRIVER={MySQL ODBC 5.1 Driver};" _
"SERVER=" db_host ";" _
"DATABASE=" db_data ";" _
"UID=" db_user ";PWD=" db_pass ";" _
"OPTION=3;stmt=SET NAMES GB2312"
' stmt=SET NAMES GB2312
' 這句是設(shè)置數(shù)據(jù)庫(kù)編碼方式
' 中文操作系統(tǒng)需要設(shè)置成 GB2312
' 這樣中文才不會(huì)有問(wèn)題
' 版本要求 mysql 4.1+
' 連接數(shù)據(jù)庫(kù)
cn.Open strCn
' 設(shè)置該屬性, 使 recordcount 和 absolutepage 屬性可用
cn.CursorLocation = adUseClient
' 訪問(wèn)表users
sql = "select * from users"
rs.Open sql, cn
MsgBox rs.RecordCount
由于ADO對(duì)象不直接支持MySQL,所以必須先安裝MyODBC, 后者也是一個(gè)免費(fèi)產(chǎn)品,在 上有下載,安裝好了MyODBC, 就可以在ODBC數(shù)據(jù)源管理中配置一個(gè)數(shù)據(jù)源名稱,把它指向你想連接的MySQL數(shù)據(jù)庫(kù)。代碼如下:Sub connectMySQL() '通過(guò)MyODBC去連接MySQL數(shù)據(jù)庫(kù),并將Microsoft SQL Server 7 '的數(shù)據(jù)轉(zhuǎn)進(jìn)mysql中 Dim sConnect As String, sSql As String, i As Long Dim cnMSSQL As New ADODB.Connection Dim cnMySQL As New ADODB.Connection '聲明并創(chuàng)建對(duì)象 連接 Dim rs As New ADODB.Recordset '聲明并創(chuàng)建對(duì)象 記錄集 Dim cm As New ADODB.Command '聲明并創(chuàng)建對(duì)象 命令 sConnect = "dsn=mysql1" '指定MySQL的數(shù)據(jù)源名稱 cnMySQL.Open sConnect '連接到 mysql sConnect="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=123456;Initial Catalog=softdown;Data Source=ntserver" '連接到 ms sql server 7 cnMSSQL.Open sConnect 'sSql = "create table softinfo (softNum smallint,softname varchar(70),softdesc blob," _ "softpath varchar(30),softleng varchar(10),softclass varchar(10),softsugest tinyint(1)," _ "softdown smallint(4))" '創(chuàng)建新的MySQL數(shù)據(jù)表語(yǔ)句 sSql = "select * from softinfo order by softnum" rs.Open sSql, cnMSSQL, 1, 1 While Not rs.EOF sSql = "insert into softinfo values (" Trim(rs(0).Value) ",'" Trim(rs(1).Value) _ "','" Trim(rs(2).Value) "','" Trim(rs(3).Value) "','" Trim(rs(4).Value) _ "','" Trim(rs(5).Value) "'," Trim(rs(6).Value) "," Trim(rs(7).Value) ")" cm.ActiveConnection = cnMySQL cm.CommandType = adCmdText cm.CommandText = sSql cm.Execute rs.MoveNext Wend rs.Close Set rs = Nothing cnMySQL.Close Set cnMySQL = Nothing cnMSSQL.Close Set cnMSSQL = Nothing End Sub
和SQL數(shù)據(jù)庫(kù)差不多的,下面是我用vb6.0連接本地mysql數(shù)據(jù)庫(kù)的連接字符串
"driver={MySQL
ODBC
3.51
Driver};server=127.0.0.1;database=mysql;uid=root;pwd=sasa"
1、顯示密碼
如:MySQL
連接遠(yuǎn)程數(shù)據(jù)庫(kù)(192.168.5.116),端口“3306”,用戶名為“root”,密碼“123456”
C:/mysql -h
192.168.5.116 -P 3306 -u root -p123456
2、隱藏密碼
如:MySQL 連接本地?cái)?shù)據(jù)庫(kù),用戶名為“root”
C:/mysql -h
localhost -u root -p
Enter password:
分享標(biāo)題:vb怎么連mysql VB怎么連接硬件
網(wǎng)頁(yè)鏈接:http://jinyejixie.com/article46/dodpihg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站內(nèi)鏈、外貿(mào)網(wǎng)站建設(shè)、小程序開(kāi)發(fā)、品牌網(wǎng)站設(shè)計(jì)、定制開(kāi)發(fā)、網(wǎng)站改版
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容