网站首页 爱站云资源网 值得一看 正文
1、打开代码窗口,添加引用:ImportsSystem.Data.SqlClient。
2、输入以下代码:
“Publicconn1AsSqlConnection=NewSqlConnection_
("server=192.168.1.79;InitialCatalog=student;UserID=panqe;PWD=shentai768@")”,vb就已经成功连接sql数据库了。
3、代码详解:声明关键字Public(因为是全局变量,所以用Public来声明)。
4、连接参数。
5、如果SQL数据库就在本机,则用以下代码连接:
("server=.;IntegratedSecurity=False;InitialCatalog=student;UserID=panqe;PWD=shentai768@")。
6:如果代码太长,影响可读性,可以用空格加"_"后,回车换行。
vb连接数据库sql
VB连接数据库方式主要有两种,一是通过ODBC接口,ODBC是windows系统里提供的接口,专门连接数据库的,可以连接多种数据库,在应用电脑的设置ODBC,也就DSN数据源(下面说到的),连接到服务器。
第二种就是ADO方式,
VB使用ADO数据库可以分为有源数据库和无源数据库,即是否使用了DSN数据源,如下例:
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择microsoftactiveXDataobjects2.6library和microsoftactiveXDataobjectsrecordset2.6两个组件,这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象,如下所示:
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString="Driver={sqlserver};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout=30
conn.Open
rs.Open"select用户名,密码fromloginwhere用户名='"&Trim(Combo1.Text)&"'And密码='"&Trim(Text1.Text)&"'",conn,adOpenStatic,adLockReadOnLY,adCmdText
Ifrs.EOF=TrueAndrs.BOFThen
m=MsgBox("请重新登录",vbExclamation)
Text1.Text=""
Text1.SetFocus
Else
Form1.Hide
EndIf
rs.Close
这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接的方法,代码如下所示:
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
conn.ConnectionString="DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout=30
conn.Open
rs.Open"select用户名fromlogin",conn,adOpenStatic,adLockReadOnly,adCmdText
DimiAsString
Fort=0ToVal(rs.RecordCount)-1
i=Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItemi
Nextt
rs.Close
连接数据库的方法很多很多,只要各位去勇敢的偿试一下,就可以感觉数据库的方法并不是很难,本人以前也很想做这方法的工作,只是学识不深,未能完成胸中大志,如今对这些方法的多少有一些了解,特意为那些初学者以供学习之用。
VB使用ADO数据库可以分为有源数据库和无源数据库,即是否使用了DSN数据源,如下例:
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择microsoftactiveXDataobjects2.6library和microsoftactiveXDataobjectsrecordset2.6两个组件,这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象,如下所示:
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString="Driver={sqlserver};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout=30
conn.Open
rs.Open"select用户名,密码fromloginwhere用户名='"&Trim(Combo1.Text)&"'And密码='"&Trim(Text1.Text)&"'",conn,adOpenStatic,adLockReadOnly,adCmdText
Ifrs.EOF=TrueAndrs.BOFThen
m=MsgBox("请重新登录",vbExclamation)
Text1.Text=""
Text1.SetFocus
Else
Form1.Hide
EndIf
rs.Close
这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接的方法,代码如下所示:
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
conn.ConnectionString="DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout=30
conn.Open
rs.Open"select用户名fromlogin",conn,adOpenStatic,adLockReadOnly,adCmdText
DimiAsString
Fort=0ToVal(rs.RecordCount)-1
i=Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItemi
Nextt
rs.Close
连接数据库的方法很多很多,只要各位去勇敢的偿试一下,就可以感觉数据库的方法并不是很难,本人以前也很想做这方法的工作,只是学识不深,未能完成胸中大志,如今对这些方法的多少有一些了解,特意为那些初学者以供学习之用。
vb连接数据库access
1、DimobjCnAsNewConnection,objRsAsNewRecordset
objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;"&"DataSource="&App.Path&objCn.Open
2、dimobjCnAsConnection
SetobjCn=NewConnection
objCn.Open“DSN=实例2DSN”
3、ADOData控件创建连接
ACCESS数据库特性
1、access有强大的数据处理、统计分析能力,利用access的查询功能,可以方便地进行各类汇总、平均等统计。并可灵活设置统计的条件。
2、access用来开发软件,比如生产管理、销售管理、库存管理等各类企业管理软件,其最大的优点是:易学,非计算机专业的人员,也能学会。
3、在开发一些小型网站WEB应用程序时,用来存储数据。例如ASP+Access。这些应用程序都利用ASP技术在InternetInformationServices运行.比较复杂的WEB应用程序则使用PHP/mysql或者ASP/MicrosoftSQLServer。
vb连接数据库代码
1、DimobjCnAsNewConnection,objRsAsNewRecordset
objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;"&"DataSource="&App.Path&objCn.Open
2、dimobjCnAsConnection
SetobjCn=NewConnection
objCn.Open“DSN=实例2DSN”
3、ADOData控件创建连接
ACCESS数据库特性
1、access有强大的数据处理、统计分析能力,利用access的查询功能,可以方便地进行各类汇总、平均等统计。并可灵活设置统计的条件。
2、access用来开发软件,比如生产管理、销售管理、库存管理等各类企业管理软件,其最大的优点是:易学,非计算机专业的人员,也能学会。
3、在开发一些小型网站WEB应用程序时,用来存储数据。例如ASP+Access。这些应用程序都利用ASP技术在InternetInformationServices运行.比较复杂的WEB应用程序则使用php/MySQL或者ASP/MicrosoftSQLServer。
vb连接数据库设计登录界面
PrivateSubForm_Load()'此段代码的主要作用是当窗体打开时就连接数据库
DimconnAsNewADODB.Connection
DimconnectionstringAsString
connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\DATE.mdb;PersistSecurityInfo=False"'数据库路径
conn.Openconnectionstring
EndSub
PrivateSubCommand1_Click()
StaticnAsInteger
Ifn>=3Then
MsgBox"输入密码次数大于3次,不允许继续登陆"
End
EndIf
Setconn=NewADODB.Connection
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False;DataSource=DATE.mdb;JetOLEDB:DatabasePassword="
DimsqlAsString
Dimrs_loginAsNewADODB.Recordset
IfTrim(Text1.Text)=""Then'检测用户名正确与否
MsgBox"用户名不能为空,请重新输入!",vbOKOnly+vbExclamation,"错误"
Text1.SetFocus
Else
sql="select*from验证WHERE用户名='"&Trim(Text1.Text)&"'"
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
MsgBox"用户名不存在,请重新输入!",vbOKOnly+vbExclamation,"错误"
Text1=""
Text1.SetFocus
Else'检测密码正确与否
IfTrim(rs_login.Fields(2))=Trim(Text2)Then
rs_login.Close
UnloadMe
Form2.Show
Else
n=n+1
MsgBox"第"&n&"次密码错误,请重新输入!",vbOKOnly+vbExclamation,"错误"
Text2.SetFocus
EndIf
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
MsgBox"您已成功退出!",vbOKOnly+vbExclamation,"提示"
UnloadMe
EndSub<
>
猜你喜欢
你 发表评论:
欢迎- 搜索
- 最新留言
- 文章归档
-
- 2021年4月 (38)
- 2021年3月 (102)
- 2020年10月 (2)
- 2020年9月 (3)
- 2020年8月 (6)
- 2020年7月 (33)
- 2020年6月 (42)
- 2020年5月 (41)
- 2020年4月 (46)
- 2020年3月 (51)
- 2020年2月 (81)
- 2020年1月 (69)
- 2019年12月 (100)
- 2019年11月 (98)
- 2019年10月 (82)
- 2019年9月 (113)
- 2019年8月 (55)
- 2019年7月 (52)
- 2019年6月 (5)
- 2019年5月 (39)
- 2019年4月 (36)
- 2019年3月 (103)
- 2019年2月 (49)
- 2019年1月 (107)
- 2018年12月 (39)
- 2018年11月 (8)
- 2018年10月 (57)
- 2018年9月 (10)
- 2018年8月 (27)
- 2018年7月 (13)
- 2018年6月 (61)
- 2018年5月 (21)
- 2018年4月 (46)
- 2018年3月 (7)
- 2018年2月 (12)
- 2018年1月 (40)
- 2017年12月 (50)
- 2017年11月 (39)
- 2017年10月 (36)
- 2017年9月 (34)
- 2017年8月 (30)
- 2017年7月 (143)
- 2017年6月 (41)
- 标签列表
本文暂时没有评论哦(●'◡'●)