如何使用VB连接MySQL数据库?

在VB上建立个text1和texe2(text1为帐号Texe2为密码)和个按钮在Text1和Text2里输入帐号密码并点击按钮。VB开始连接Mysql数据库(Mysql... 在VB上建立个text1和texe2(text1为帐号 Texe2为密码)和个按钮

在Text1和Text2里输入帐号密码并点击按钮。VB开始连接Mysql数据库
(Mysql数据库IP为127.0.0.1 端口3306 数据库名 abc 表名为 USER
值为User 和PASS) 验证Texe1与User,Text2与PASS的数值是否一样,一样则允许打开Form2,不一样则不允许,在打开Form2时Form1自动隐藏.
跪求
展开
 我来答
一碑电影
2008-08-25 · 知道合伙人影视综艺行家
一碑电影
知道合伙人影视综艺行家
采纳数:406 获赞数:5429
微信公众号:一碑电影。 电影,延长三倍人生。

向TA提问 私信TA
展开全部
最简单的办法是:在VB里添加一个ADO部件,将其放到窗体中,然后右键选择属性,在其属性页的下面有个生成连接字符串的项,点击其后的按钮,然后一步步的来做(很简单的),然后连接字符串就会在那里生成,只要拷贝这个字符串,就可以用ADODB来连接了。。。
treasonmmx
2008-09-05 · TA获得超过540个赞
知道答主
回答量:333
采纳率:0%
帮助的人:330万
展开全部
strCNN = "provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog= abc ;data source=(local)" 'SQL Server

添加adodc 控件

Dim Op As New ADODB.Recordset

If (Text1.Text = "" Or Text2.Text = "") Then
MsgBox ("请将信息输入完整!"), vbOKOnly + vbExclamation + vbDefaultButton1, "警告信息"
Else
strCNN = "select * from abc where USER ='" & Text1.Text & "'and PASS='" & Text2.Text & "'"
Op.Open strCNN, MyCNN
If Op.EOF = True Then
MsgBox "您输入的用户名或密码错误!", vbOKOnly + vbCritical + vbDefaultButton1, "重新填写!"
Text2.Text = ""
Text2.SetFocus
Else
Load form2 '或者 form2.show
Me.Hide
End If
End If
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式