成人午夜视频全免费观看高清-秋霞福利视频一区二区三区-国产精品久久久久电影小说-亚洲不卡区三一区三区一区

vb怎么連mysql VB怎么連接硬件

vb 連接 mysql

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)公司。

在VB中,如何連接MYSQL

連接跟

ms

sql

是一樣的,不地要求就是本機(jī)必須有mysql的組件。

如何用vb連接mysql數(shù)據(jù)庫(kù)

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

vb的ADO控件如何連接操作MYSQL數(shù)據(jù)庫(kù)啊

由于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

怎么用vb連接mysql,有現(xiàn)成的代碼嗎跪求

和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"

如何用VB連接遠(yuǎn)程的mysql數(shù)據(jù)庫(kù)

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)

成都app開(kāi)發(fā)公司
抚松县| 冷水江市| 江都市| 秦安县| 昌吉市| 洛扎县| 祁连县| 洪雅县| 登封市| 四子王旗| 永和县| 灵武市| 务川| 新乐市| 伊通| 钟山县| 卫辉市| 额济纳旗| 南木林县| 巨鹿县| 从化市| 沙河市| 宜丰县| 繁峙县| 溧水县| 公安县| 镇坪县| 乌拉特后旗| 屏边| 淮滨县| 疏勒县| 甘谷县| 伽师县| 牡丹江市| 山东省| 应城市| 扶沟县| 普兰县| 桑植县| 洪湖市| 金湖县|