VB怎么连接SQL Server数据库

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：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

从“工程”菜单中“引用” 引用Microsoft ActiveX data objects 28

private sub command_click()

Dim mycon As ADODBConnection '定义连接数据库对象

'如果你的数据库是access用下面的方式打开数据库

'

myconConnectionString = "provider= microsoftjetoledb40;data source=" & AppPath & "/ 这里写数据库名mdb"

''

'如果你的数据库是SQL的用下面的方式打开数据库

'myconConnectionString = "Provider=SQLOLEDB1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=数据库名;Data Source=\sqlexpress"

'

myconOpen '打开数据库

Dim rst As New ADODBRecordset '定义一个记录集 ，用来打开表记录

sql="select from information"

rstOpen Trim(SQL), mycon, adOpenKeyset, adLockOptimistic '打开记录集

rstaddnew '添加空记录

rstfields(0)=text1,text

rstfields(1)=text2,text

rstfields(2)=text3,text

rstfields(3)=text4,text

rstfields(4)=text5,text

rstupdate '更新数据库

msgbox"数据录入成功"

这样就可以了！ 不过我发现你的界面好像是VBNET的，如果是VBNET的你把邮箱发过来我直接过你发过去好了！

在VB6中可用ADO及DATAGRID控件，用如下语句可更灵活：

Private Sub Form_Load()

Text1 = ""

With Adodc1

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

Adodc1RecordSource = "select name from b1 order by name"

Adodc1Refresh

DataGrid1Refresh

End With

End Sub

Private Sub Text1_Change()

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

Adodc1RecordSource = "select name from b1 where name >='" & Text1 & "' order by name"

Adodc1Refresh'对查询更新

DataGrid1Refresh

End Sub

数据库用VB6编程语言，对新手而言，如何用好ADODC控件和DATAGRID控件相当重要。上面的原代码基于ADODC控件和DATAGRID控件的灵活应用。具体做法：

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

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

SQL查询语言主要结构为：

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

查询字段必须分别用（西文）逗号分开或就用一个号代替，上述查询中排序语句建议最好应用。

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

以上不知是否说清楚？SQL查询语言多写多用就会熟练，以上供提问者参考。

select

count(duicuo)

from

sheet1

where

duicuo='0'//这才是统计出为0的个数然后再select

ID

from

sheet1

where

duicuo='0'//这是列出为0的全部数据ID

Private Sub Command1_Click()

Dim rst As New ADODBRecordset

name=trim(text1text)

sql="select from 表名 where 字段名='"& name &"' "

set rst=execute(sql)

if not rsteof then

text2text=rstfields("员工号")

text3text=rstfields("姓名")

text4text=rstfields("性别")

text5text=rstfields("年龄")

else

msgbox"查五此人"

end if

rsclose

end sub

'试试，子查询后面加一个别名t：

mesql = "select top 5  from ( select top " & sqltop & "  from " & Ph & ")  t where 用户名='1'"

动态生成语句查询sql数据库内所有表，通常用 语句组合链接串。

如果是已经明确的表，可以用 参数方式变更。

如果是针对不同的表，自己拼合sql语句吧。

VBnet数据库连接的语句，网上太多了。

以上就是关于VB怎么连接SQL Server数据库全部的内容，包括:VB怎么连接SQL Server数据库、VB里面语句，怎么实现对SQL数据库里面数据的增删改查、怎样在VB中实现SQL语言的查询等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！