好东西不私藏,大家一起分享!爱站云 用心做
广告位 后台主题配置管理

网站首页 爱站云资源网 值得一看 正文

vb连接数据库,vb连接数据库sql

爱站云 2020-03-18 值得一看 0 评论

  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<


  >

< 爱站云SEO >
本站所有文章,未经允许一律不允许转载,违者后果自负
本站为SEO教学博客,学到东西应该懂得感恩作者 无脑喷子永封IP段+删帐号所有评论
本站部分文章存在于网上收集,如侵犯您的权利,请告知管理员,我们会及时删除,并向您赔礼道歉.

百秀社区爱站云 官方QQ群:333914614


猜你喜欢

本文暂时没有评论哦(●'◡'●)

欢迎 发表评论:

温馨提示:(登陆后才可以评论哦!点我QQ登录哦,若已登录请忽略)。
«   2021年4月   »
1234
567891011
12131415161718
19202122232425
2627282930
网站分类
搜索
最新留言
文章归档
标签列表