vb读取sql数据库数据,vb查询sql数据库
如何在VB从sql 中读取数据 （初学者跪求）
vb.net
'命名空间
Imports System.Data
Imports System.Data.SqlClient
'定义变量
'连接数据库
Dim connstr As String = System.Configuration.ConfigurationSettings.AppSettings("connstr")
Dim sql_conn As New SqlConnection(connstr)
‘读取SQL数据到视图view1
public sub getdate()
Dim g_ap As New SqlDataAdapter("select * from tb1", sql_conn)
Dim g_d As New DataSet
g_ap.Fill(g_d)
view1.AutoGenerateColumns = False
view1.DataSource = g_d.Tables(0)
sub
怎么通过VB访问SQL Server数据库
要连接SQL数据库有两种方法用ADODC或ADO.
方法一: （ADODC)
首先须引用Projects-Components-Microsoft ADO Data Controls 6.0 (OLEDB).
之后在表单设置ADODC控件。然后Form_Load()输入以下代码：
Private Sub Form_Load()
ADODC1.ConnectionString = "Provider=SQLOLEDB;Password=密码;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名"
ADODC1.CommandType = adCmdText
ADODC1.RecordSource = "select * from 表格名称"
ADODC1.Refresh
End Sub
方法二: (ADO)
'首先须引用Projects-References-Microsoft Active X Data Objects 2.0 Library.
'*注意以下两段须写在程式最上面（Gerenal一般）中。
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String
'然后在Form_Load()输入以下代码：
Private Sub Form_Load()
cn.ConnectionString = "Provider=SQLOLEDB;Password=密码;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名"
cn.Open
If rs.State = adStateOpen Then rs.Close
rs.CursorLocation = adUseClient
SQL = "select * from 表格名"
rs.Open Trim$(SQL), cn, adOpenKeyset, adLockPessimistic
End Sub
vb连接sql数据库
1、打开代码窗口，添加引用：Imports System.Data.SqlClient。
2、输入以下代码：
“Public conn1? As SqlConnection = New SqlConnection _
("server=192.168.1.79; 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：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。