Question

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

如何使用vb连接sql数据库?
并在VB上实现查询sql数据库的表的信息

Answer 1

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

Imports System.Data.SqlClient 
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 System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
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 
LeafSqlCommand.CommandType = CommandType.Text 
LeafSqlDataAdapter.SelectCommand = LeafSqlCommand 
LeafData = New DataTable 
LeafSqlDataAdapter.Fill(LeafData) 
DataGridView1.DataSource = LeafData 
End Sub 
End Class