vb怎么连接sql

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

具体做法：

新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 40 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

SQL查询语言主要结构为：

Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]

查询字段必须分别用（西文）逗号分开或就用一个号代替。

SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT FROM TabelName"作调试，无问题，用一个按钮控件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1控件，再添加ADODC1控件再添其他内容。

参考代码:

Private Sub Form_Load()

Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=E:\db1mdb;Persist Security Info=False"

Adodc1RecordSource = "select name from b1 order by name"

Adodc1Refresh

DataGrid1Refresh

End Sub

（1）新建数据库并命名为denglu，在该数据库中新建表User1,表包含的列为“ID,username,pwd”。

（2）设计登录界面Frmlogin，以及登录成功后要显示的界面Form2,并连接到数据库，使包含在数据库中的合法用户能成功登录该程序，而不合法用户则无法进入程序。

1、有向导可用，你在屏幕左侧看跟工具箱挨着的有个数据源管理，这里点新数据源，就可以向导连接。

2、那个Microsoft ActiveX Data Object缩写简称ADO，很好找，是有的，有空q我，给你发截图看。

3、数据绑定没有向导，也不需要，简单的设置一个datasource属性即可，不需要复杂的向导。

4、不是用ADO控件，而是用ADOnet程序集，要连接到 Microsoft SQL Server 70 或更高版本，请使用 SQL Server NET Framework 数据提供程序的 SqlConnection 对象。 要连接到 OLE DB 数据源，或连接到 Microsoft SQL Server 6x 或更低版本，请使用 OLE DB NET Framework 数据提供程序的 OleDbConnection 对象。

5、应该是Adodc1ConnectionString="xxxxxxxxx" 引号中为连接字符串，具体的语法建议你按F1看MSDN的帮助，很详细。

6、还有问题可以共同探讨，qq369220969

Dim strConn As String '连接字符串

Dim strSql As String 'SQL命令

Dim conn As ADODBConnection '数据源

Dim RecSet1 As ADODBRecordset '记录集

strConn = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\aaamdb;Persist Security Info=False"

strSql = "SELECT FROM bbb"

Set conn = New ADODBConnection

connConnectionString = strConn

connOpen

If RecSet1State = adStateOpen Then RecSet1Close

RecSet1Open sSql, conn

If Not (RecSet1BOF) And Not (RecSet1EOF) Then

MetxtCusNametext = Trim(RecSet1!Name) '会员姓名

MeTxtDeltext = Trim(RecSet1!UmDiscount) '折扣

End If

以上就是关于vb怎么连接sql全部的内容，包括:vb怎么连接sql、vb中adodc控件怎样用代码来连接数据库~~~~、vb中如何设计登录界面怎么连接数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！