vb如何连接sql数据库,求源码

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192.168.1.79Initial Catalog= studentUser ID= panqePWD=shentai768@")”，vb就已经成功连接sql数据库了。

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

4、连接参数。

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

("server=.Integrated Security=FalseInitial Catalog= studentUser ID= panqePWD=shentai768@")。

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

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

我在VB中用bo控件,选择书名和作者进行分类查询,然后在text中输入相应的书名或作者,点mand进行模糊查询SQL中的表 想在VB中的datagrid中显示查询的结果. 代码如下:

Private Sub Form_Load()

Dim rs As ADODB.Recordset

Set n = New ADODB.Connection

n.Open "dsn=joyce", "sa", ""

Combo1.AddItem "按书名查询", 0

Combo1.AddItem "按作者查询", 1

End Sub

Private Sub Command1_Click()

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient

Dim sql As String

If Combo1.Text = Combo1.List(0) Then

sql = "select * from book where 书名 like '" &Text1.Text &"%'"

rs.Open sql, n, adOpenKeyset, adLockOptimistic

End If

If Combo1.Text = Combo1.List(1) Then

sql = "select * from book where 作者 like '" &Text1.Text &"% '"

rs.Open sql, n, adOpenKeyset, adLockOptimistic

End If

result.Show

director.Hide

Set DataGrid1.DataSource = rs

End Sub

(以设置模块代码:Public n As New ADODB.Connection)

执行时出现错误:需要对象.

请教是哪出问题了呢?我是编程菜鸟,希望能详细指出.谢谢.

解析:

1、可能是库的连接有问题。2、库里面的字段名称是不是你上面的“作者”“书名”？是不是其他的例如：zuozhe shuming等。3、rs要刷新下！

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

Private Sub Form_Load()

Text1 = ""

With Adodc1

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=E:\db1.mdbPersist Security Info=False"

Adodc1.RecordSource = "select name from b1 order by name"

Adodc1.Refresh

DataGrid1.Refresh

End With

End Sub

Private Sub Text1_Change()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=E:\db1.mdbPersist Security Info=False"

Adodc1.RecordSource = "select name from b1 where name >='" &Text1 &"' order by name"

Adodc1.Refresh'对查询更新

DataGrid1.Refresh

End Sub

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

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

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

SQL查询语言主要结构为：

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

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

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

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

---