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

我是这样做的:

Dim ConnectionString As String = _

"Provider=MicrosoftJetOleDb40;_DatacSource = AppPath+\tempmdb"

Dim myconn As OleDbConnection = New OleDbConnection()

myconnConnectionString = ConnectionString

Dim strcom As String = "select form 通讯录"

OleDbConnection1Open()

Dim strdele As String="DELTEL 表 WHERE 姓名='MMM'"

Dim mycommand As OleDbCommand = New OleDbCommand(strdele, myconn)

mycommandExecuteNonQuery() '从数据库中删除记录

DataSet1Tables("通讯录")Rows(mybindPosition)Delete() '逻辑删除

DataSet1Tables("通讯录")AcceptChanges()

OleDbConnection1Close()

从“工程”菜单中“引用” 引用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的你把邮箱发过来我直接过你发过去好了！

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