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<

　　>