vb连接sql数据库创建一个可查询的程序.

这个例子中既有连接数据库和显示数据库数据的内容，参考一下。有问题再追问吧，望采纳。

Imports SystemDataSqlClient 

Public Class Form1 

Dim LeafSqlConnection As SqlConnection '声明这些SQL的类 

Dim LeafSqlCommand As SqlCommand 

Dim LeafSqlDataAdapter As SqlDataAdapter 

Dim LeafData As DataTable '定义一个leafdata对象（是存放数据库表信息的），这个是表格的类,用来装你读取的信息的表 

Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click 

LeafSqlConnection = New SqlConnection("Data Source=;Initial Catalog=你的数据库名称 ;Integrated Security=True;Pooling=False") '如果采用windows身份登录就用这个,数据库名称我直接写成'你的数据库名称'了,没有用户名密码 

'LeafSqlConnection = New SqlConnection("Initial Catalog=你的数据库名称 ;User ID=sa;PWD=leafsoftpassword") '如果采用SQL用户密码登录用这个,注意的是前面这些数据库名称我直接写成'你的数据库名称'了,你如果要读别的数据库自己改,还有用户密码自己改 

LeafSqlCommand = New SqlCommand("Select  from 表1 Where 姓名='小强';", LeafSqlConnection) '这里记得名字的两边要加符号 ' 

LeafSqlDataAdapter = New SqlDataAdapter 

LeafSqlCommandCommandType = CommandTypeText 

LeafSqlDataAdapterSelectCommand = LeafSqlCommand 

LeafData = New DataTable 

LeafSqlDataAdapterFill(LeafData) 

DataGridView1DataSource = LeafData 

End Sub 

End Class

VB读取数据库并显示出来的方法可参考下面用控件的实现方法：

ACCESS数据库，用VB6里的Data控件，选中它，设置属性：

DatabaseName 属性：连接到数据库文件

RecordSource 属性：连接数据表（可以用Select语句返回记录集）

然后使用它的：data1RecordsetFields(“字段名”)，就可以返回获得你说的内容了。

dim

s

as

object

=

scommexecutescalar

这句scomm已经执行过了

你下面就不能判断scommexecutescalar了

而是应该判断s是不是为null如果为null就说明执行没成功。

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

ServerIP

=

SQL的服务器IP

也可以是

服务器的名称

DB_PWD

=

"sa"

DB_User

=

"sa"

DB_Name

=

SQL数据库表名

SqlStr

=

"Provider

=

SQLOLEDB1;Password

="

&

DB_PWD

&

";Persist

Security

Info

=

True;User

ID

="

&

DB_User

&

";Initial

Catalog="

&

DB_Name

&

";Data

Source="

&

ServerIP

Public

DBCnn

As

New

ADODBConnection

DBCnnOpen

SqlStr

DBCnn就可以做连接字符串了

以上就是关于vb连接sql数据库创建一个可查询的程序.全部的内容，包括:vb连接sql数据库创建一个可查询的程序.、VB怎样读取数据库并显示出来、VB.NET读取和写入SQL数据库的代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！