VB连接MYSQL数据的方法 - 韩保红的代码库博客——记录我的学习历程 - ITeye技术网站
博客分类：
第一步：上网下载mysql-connector-odbc-5.1.6-win32.msi
第二步：安装mysql-connector-odbc-5.1.6-win32.msi
第三步：运行VB并新建一标准EXE工程, 通过菜单 工程-&引用 打开”引用”对话框, 找到 Microsoft ActiveX Data Objects x.x Library , 其中 x.x 是版本号, 可能会有很多个, 这里我选择的是 2.5
第四步：打开代码窗口, 在 Form_Load 过程中输入下面的代码(具体说明在代码的注释中):
' 定义并创建数据库连接和访问对象
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 = ""
db_data = "erqiuda"
' MySQL ODBC 连接参数
'+------------+---------------------+----------------------------------+
'+------------+------------------------------------------------------–+
| ODBC (on Windows)
| MySQL 用户名
| localhost
| MySQL 服务器地址
'| database
| 默认连接数据库
| 参数用以指定连接的工作方式
| 连接端口
| 一段声明, 可以在连接数据库后运行 |
'| password
| MySQL 用户密码
'+------------+---------------------+----------------------------------+
' 详细查看官方说明
' /doc/refman/5.0/en/myodbc-configuration-connection-parameters.html
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
' 这句是设置数据库编码方式
' 中文操作系统需要设置成 GB2312
' 这样中文才不会有问题
' 版本要求 mysql 4.1+
' 连接数据库
cn.Open strCn
' 设置该属性, 使 recordcount 和 absolutepage 属性可用
cn.CursorLocation = adUseClient
' 访问表users
sql = "select * from users"
rs.Open sql, cn
MsgBox rs.RecordCount
浏览 12242
hanbaohong
浏览: 224813 次
来自: 广州
收下以后有空再看，朋友最好是将所有文件打包上传，好上我这些初 ...
不错呀,总结得很好.......
代表广大学习人民,谢谢您.. ...
弃暗投明，呵呵~~求教如何用VB连接服务器上的ACCESS数据库修改和添加数据【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：102,335贴子：
求教如何用VB连接服务器上的ACCESS数据库修改和添加数据收藏
我已经弄糊涂了，只做了修改本地的，有谁知道怎么弄服务器上的，二楼是本地的修改代码。原谅我是只菜鸟
除尘器怎么选,看这里,超详细!
Private Sub Command1_Click()Dim rst As New ADODB.RecordsetDim cnn As New ADODB.ConnectionSet cnn = New ADODB.ConnectionDim sql$cnn.ConnectionString = &Data Source=& & App.Path & &\@31$25.$$$;& & _&Provider=Microsoft.Jet.OLEDB.4.0&cnn.Openrst.Open &select * from logistics&, cnn, 3, 3rst.AddNewrst(&ID&) = Text1.Textrst(&LDate&) = Text2.Textrst(&Info&) = Text3.Textrst.Updaterst.Closecnn.CloseMsgBox &添加成功！&End Sub
要连的服务器地址是121.40.144.224，文件在服务器的others文件夹下面，服务器是需要账号密码登陆的
来个大神帮忙下，找了好多没有找到修改服务器上数据库的，只有SQL的哪些，可是我用的是ACCESS啊
我换了个方法，下载下来在想着去修改再上传。老是提示不能链接到远程主机，确定是FTP能链接的，谁帮我看看那里出错了FTP上下载的代码：Private Sub Command3_Click()
Inet1.Protocol = icFTP
Inet1.RemoteHost = && ' 服务器IP或者域名
Inet1.RemotePort = 21 'FTP端口
Inet1.UserName = &****& 'FTP帐号
Inet1.Password = &*****& 'FTP密码
Inet1.Cancel
Inet1.Execute , &GET /others/@31$25.mdb d:\temp\@31$25.mdb&
‘这个位置出错的
Do While Inet1.StillExecuting
MsgBox &下载完成！&
CloseEnd Sub
如果你的服务器是自己的，能运行exe且可以打开端口的话，我有办法可以做到。
服务器上用ASP做 或者换sql数据库 直接用vb连接access数据库只能连接本地和局域网的access数据库 上面代码里要填写IP地址的地方 应该不用加前面的部分 就写IP地址就可以了
登录百度帐号推荐应用VB中怎么对数据库进行添加删除修改的操作
Private Sub Command1_Click()
For i = 0 To 5
Text1(i).Text = ""
Adodc1.RecordSource = "select * from " & s1
& " order by 编号"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount & 0 Then
Adodc1.Recordset.MoveLast
Text1(0).Text = "G" +
Format((Val(Right(Trim(Adodc1.Recordset.Fields("编号")), 4)) + 1),
Text1(0).Text = "G0001"
Private Sub Command2_Click()
If Adodc1.Recordset.EOF = False Then
c = MsgBox("您确认要删除该记录吗？", vbOKCancel, "删除提示信息")
If c = vbOK Then
Adodc1.Recordset.Delete
Adodc1.RecordSource = "select * from 人员表"
Adodc1.Refresh
MsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息"
Private Sub Command3_Click()
If Text1(0).Text = "" Or Text1(1).Text = "" Then
MsgBox "请选择需要改动的记录信息！", vbOKOnly, "错误提示"
c = MsgBox("确定要修改该记录吗？", vbOKCancel, "提示信息")
If c = vbOK Then '如果确认修改的话进行修改操作
If Text1(1).Text = "" Then
MsgBox "姓名不能为空值!", 48, "修改****"
'连接所要修改的数据库
con.Open "Provider=SQLOLEDB.1;Password=2752;Persist Security
Info=TUser ID=Initial Catalog=Data
Source=JAMLEEPC"
'开始修改数据库
con.Execute ("UPDATE " & s1 & " SET
姓名='" & Text1(1).Text & "',年龄="
& Text1(2).Text & ",学历='"
& Text1(3).Text & "',年级="
& Text1(4).Text & ", 入学时间='"
& Text1(5).Text & "' where 编号='"
& Trim(Text1(0)) & "'")
MsgBox "信息修改成功", 64, "修改****"
Adodc1.RecordSource = "select * from 人员表"
Adodc1.Refresh
Private Sub Command4_Click()
Adodc1.RecordSource = "select * from 人员表 where 编号='" +
Text1(0).Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount & 0 Then
MsgBox "该信息已存在，信息保存不成功", 64, "保存****"
cc = MsgBox("您确定要保存该信息吗？", 33, "信息保存提示")
If cc = vbOK Then
If Text1(1).Text = "" Or Text1(2).Text = "" Or Text1(3).Text = ""
Or Text1(4).Text = "" Or Text1(5).Text = "" Then
MsgBox "请确认，人员的姓名、年龄、学历、年级和入学时间不能为空", 48, "保存****"
con.Open "Provider=SQLOLEDB.1;Password=2752;Persist Security
Info=TUser ID=Initial Catalog=Data
Source=JAMLEEPC"
con.Execute ("insert into 人员表 values('" &
Text1(0).Text & "','" &
Text1(1).Text & "','" &
Text1(2).Text & "','" &
Text1(3).Text & "','" &
Text1(4).Text & "', '" &
Text1(5).Text & "')")
MsgBox "信息修改成功", 64, "修改****"
Adodc1.RecordSource = "select * from 人员表"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。您的位置： >
本文以Visual&Basic6.0和Server&2000环境下的数据库为例，介绍文件数据对SQL&Server&2000数据库的上传和下载。
很多单位尤其是制造业、设计院，计算机应用开展的较早。在这些单位，各种法规文件的下达以及日常工作中产生的大量数据，形成了种类繁杂、数量庞大档案资料（各种文件）。面对海量数据，原有档案管理系统在进行数据的备份、还原、更新与维护时多数已力不从心。传统的基于文件的管理方式，还给各种档案的保密工作带来了隐患。为此，越来越多的单位开始开发基于数据库的文件档案管理系统，以期克服这些毛病。&
数据库的连接　　对数据库的操作一定在已经与本地抑或是网络数据库建立了联系的基础上，建立连接这一需求可以通过两种方式实现。　　为便于理解，这里假定服务器名为Data_Server，档案数据库名为Science_File，其中的一个数据表名为office，设计有一个名称为office、类型为Image的字段，用于保存文件。为便于将不同大小的文件存储在SQL&Server的数据表中，必须在数据表中创建一个Image型的字段，该字段可存储的最大文件达2GB字节。　　1、利用Adodc控件连接　　Visual&Basic提供了一个Adodc控件。它通过Adodc属性的设置，按照向导提示完成数据库的连接。具体过程如下：　　首先在属性页中选择生成按钮，进入数据链接属性对话框；然后选择该对话框中的连接属性页，选择或输入服务器名称和数据库等重要信息；最后测试连接，连接成功后，按确定按钮，返回到属性页对话框，可获得连接字符串，如下例：Provider=SQLOLEDB.1；Integrated&Security=SSPI；Persist；Security&Info=False；Initial&Catalog=Science_File；Data&Source=Data_Server&　　通过下列语句，即可连接到指定的数据库：dim&odbcstr&as&String,&adocon&As&New&ADODB.Connectionodbcstr&=&"Provider=SQLOLEDB.1;Integrated&Security=SSPI;Persist&Security&Info=F_Initial&Catalog=Science_FData&Source=Data_Server"adocon.Open&odbcstr&'连接到数据库&　　2、利用NetServerEnum函数　　该函数是一个API函数，通过它可获得一个安装了SQL&Server数据库管理系统的服务器列表。方法如下：&Private&Declare&Function&NetServerEnum&Lib&"netapi32"&_(lpServer&As&Any,&ByVal&lLevel&As&Long,&vBuffer&As&Any,&_lPreferedMaxLen&As&Long,&lEntriesRead&As&Long,&lTotalEntries&As&Long,&_ByVal&lServerType&As&Long,&ByVal&sDomain$,&vResume&As&Any)&As&LongPrivate&Declare&Sub&CopyMemory&Lib&"kernel32"&Alias&"RtlMoveMemory"&(Destination&_As&Any,&Source&As&Any,&ByVal&Length&As&Long)Private&Declare&Function&lstrlenW&Lib&"kernel32"&(ByVal&lpString&As&Long)&As&LongPrivate&Type&SV_100　platform&As&Long　name&As&LongEnd&Typedim&sv100&As&SV_100,&nRet&As&Long,&i&as&long,&lServerInfo&As&Longdim&lServerInfo&As&Long,&lPreferedMaxLen&As&Long,&lEntriesRead&As&Longdim&lTotalEntries&As&Long,&sDomain&As&String,&vResume&As&Variantdim&buffer()&As&Byte,&nLen&As&LonglPreferedMaxLen&=&65536nRet&=&NetServerEnum(0,&101,&lServerInfo,&lPreferedMaxLen,&lEntriesRead,&lTotalEntries,&4,&sDomain,&vResume)If&nRet&=&0&or&nRet&=&234&&Then　For&i&=&0&To&lEntriesRead&-&1　　CopyMemory&sv100,&ByVal&lServerInfo,&Len(sv100)　　nLen&=&lstrlenW(sv100.name)&*&2&　　If&nLen&Then　　　ReDim&buffer(0&To&(nLen&-&1))&As&Byte　　　CopyMemory&buffer(0),&ByVal&sv100.name,&nLen　　End&If　　Combo1.List(i)&=&buffer&'服务器名　　lServerInfo&=&lServerInfo&+&24　Next&iEnd&If&　　得到的服务器名通过Combo1控件显示，可从中选择储存档案数据的服务器名，再通过下列语句连接到选定服务器中的数据库：odbcstr&=&"Provider=SQLOLEDB.1;Integrated&Security=SSPI;Persist&Security&Info=F_Initial&Catalog=Science_FData&Source="&&&bo1.Textadocon.Open&odbcstr&'连接到数据库&　　其中的变量含义与前述相同，bol.Text的内容即为选定的服务器名。　　通过以上两种方法皆可达到连接目的，前者简洁但有很大局限性，当数据服务器名称发生变化时，必须修改源代码，很不方便。后者既有较强的操作性又很直观。在笔者开发的科技档案管理系统采用了第二种方法。数据的上传　　数据的上传就是将档案文件存储到数据表中。在数据上传时，因情况不同一般有两种方式，即单一上传和批量上传，前者指一次上传一个文件(在数据表中增加一条记录)，后者指一次将一个文件夹中的所有文件上传到数据库。两者在实质上是统一的，批量上传时，只需用一个循环语句就可。以下介绍单一上传的过程。1、打开数据表　　通过以下语句打开数据表：dim&office_rst&As&New&ADODB.Recordsetadocon.CursorLocation&=&adUseClient&office_rst.Open&"office",&adocon,&adOpenDynamic,&adLockOptimistic,&adCmdTable&　　2、添加新记录并上传文件　　假定通过一些操作已经获得了要上传的文件路径和名称(例如，可利用CommomDialog控件获得)，保存在string型变量filePath中。上传的关键语句如下：dim&adofld&As&ADODB.Field,&DataArr()&As&Byte,&filelen&As&Long,&file_num&As&Longoffice_rst.AddNewSet&adofld&=&office_rst("office")adorst("filename").Value&=&filePathfile_num&=&FreeFile&'返回一个&Integer，代表下一个可供Open语句使用的文件号Open&filePath&For&Binary&Access&Read&As&file_num&'打开磁盘文件filelen&=&LOF(file_num)&'求文件长度ReDim&DataArr(filelen)&'根据文件长度定义动态数组大小Get&sourcefile,&,&DataArr&'将一个已打开的磁盘文件读入数组变量之中adofld.AppendChunk&DataArr()&'将数组内容存入image型字段中Close&file_num&'关闭磁盘文件adorst.update&　　其中的filename为表office中的一个string型字段，用于存储档案文件的名称。　　数据的下载　　在完成数据库连接后不仅可以对数据库进行文件上传的操作，还可以很方便的进行下载（浏览）。通过Web&Browser控件可浏览各种类型的文件。　　1、WebBrowser控件　　WebBrowser控件使应用程序增加了浏览功能，利用它可浏览常见的一些文件格式，如Office、CAD、BMP、JEG等。包含了WebBrowser控件的应用程序不仅可以对本机上的文件，还可以对局域网甚至世界网络范围内的文件进行浏览。　　WebBrowse控件有很多方法，但这里只用到了"Navigate"方法，Navigate方法就是通过一个文件的全路径去访问这个文件，具体用法为：WebBrowOff.Navigate&URL　　其中WebBrowOff&是一个WebBrowser控件，URL是必需的string型参数，它可以是表示在Internet的WWW服务程序上用于指定信息位置的字符串，也可以是一个全路径或者是对要浏览的文件通过通用命名标准命名的位置和名称。　　2、文件数据的下载　　在程序中可利用DataList控件列出数据库中保存的文件的名称，下载的思路为：首先定位要下载的文件所在的记录；然后将文件的内容赋给一个数组，并写入一个二进制文件；最后将该文件路径、文件名传给WebBrowser控件。　　关键代码如下所示：dim&FileArr&()&As&Byte,&current&as&stringfilelen&=&office_rst.Fields("office").ActualSize&'得到office字段中的文件数据的大小ReDim&FileArr(filelen)FileArr()&=&office_rst.Fields("office").GetChunk(filelen)&'将字段中数据写入动态数组中bufferfile&=&FreeFileOpen&"tempfile"&For&Binary&Access&Read&Write&As&bufferfile&'打开一个临时文件Put&bufferfile，&，FileArr&'将动态数组FileArr中的数据写入临时文件tempfile中current&=&CurDir&&&"\tempfile"&'获取临时文件的全路径WebBrowOff.Navigate&current&'在WebBrowser控件中显示文件内容&　　以上代码中未定义的变量与前述相同。　　结束语　　现在很多单位档案资料数据类型繁多，有OFFICE文档、纯文本、图片资料以及包含基础地形图、现状专题图、规划设计成果图等多种图件的AUTOCAD文件，并且数据量巨大，文件数目极多，利用本文介绍的方法可以方便的对数据库各种数据进行查看、上传、下载操作，方便了有大量档案资料的单位对资料的管理.&
非常好我支持^.^
不好我反对
相关阅读：
( 发表人：发烧友 )
评价:好评中评差评
技术交流、我要发言
发表评论，获取积分！ 请遵守相关规定！提 交
Powered by: 电子发烧友 （
. .All Rights Reserved 粤ICP备号