vbnet連接sql方法

Ⅰ VB.NET對SQL資料庫怎樣連接啊求代碼

VB.NET中有控制項可以真接接點擊屬性進行連接配置.
SqlConnect數據連接控制項.點擊ConnectionString屬性進行配置就可以了.
VB.NET中沒有RecordSet了.取而代之的是DataSet.
在VB.net中可以先用SqlConnection對像來連接資料庫再用SqlDataAdapter對像來讀取數據並填充到DataSet里.然後就可以進行數據綁定了.
例:
dim conn as SqlConnection
dim da as SqlDataAdapter
dim ds as Dataset
set conn = new SqlConnection
conn.ConnectionString="server=serverIP;database=databasename;uid=userid;pwd=password";
conn.open
da = new SqlDataAdapter (<sql>,conn)
da.fill(ds)

Ⅱ VB.NET如何連接遠程SQL資料庫

一般採用命令形式
SQL_CONNECT = New SqlConnection("Server=servername;Database=MF;Uid=USERID;Pwd=PASSWORD")

Ⅲ vb.net是怎麼樣實現與sql的連接的

ADO.net +SQLSever（比如說你的伺服器是：MYSQLSERVER,你要連的資料庫是pubs）
首先引入命名空間(在public class ..之上）
imports system.data.sqlclient
⑴信任連接（不用使用用戶名，密碼）
Dim mycon As New SqlConnection("server=MYSQLSERVER;database=pubs;integrated security=true;")
mycon.open()
....
mycon.close()
⑵採用用戶名和密碼連接(假如你的資料庫登陸用戶名為sa,密碼為：dorient)：
Dim mycon As New SqlConnection("server=MYSQLSERVER;database=pubs;uid=sa;pwd=dorient;")

Ⅳ vb.net的資料庫怎麼連接啊

Dim
sqlConnection1
As
SqlClient.SqlConnection
Dim
strConnect
As
String=」data
source=伺服器名;initial
catalog=資料庫名;user
id=sa;password=;」
sqlConnection1=New
System.Data.SqlClient.SqlConnection(strConnect)
sqlConnection1.open
『打開資料庫
sqlConnection1.close
『關閉連接，釋放資源
1)連接Sql
Server資料庫
Dim
odbcDbConnetion1
As
Microsoft.Data.OdbcConnection
Dim
strConnect
As
Sting=」Driver={SQL
Server};Server=伺服器名;Uid=sa;pwd=;Database=
資料庫名;」
odbcDbConnetion1=New
Microsoft.Data.OdbcConnection(strConnect)

Ⅳ vb.net 連接sql資料庫模塊,如何使用

比如有個asp.net(vb.net)連接sql server 2000資料庫的連接模塊(mole)：

Mole MdlCommon
Public txtSQL As String '存放SQL語句
Public DBSet As DataSet '查詢得到的記錄集
Public ErrorMsg As String '存放錯誤信息
Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet
Dim cnn As SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand()
Dim adpt As SqlClient.SqlDataAdapter
Dim rst As New DataSet()
Dim SplitSQL() As String
errMsg = ""
Try
SplitSQL = Split(strSQL)
cnn = New SqlClient.SqlConnection("data source=(local);initial catalog=urp;user id=sa;pwd=1234")
If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Then
cmd.Connection = cnn
cmd.Connection.Open()
cmd.CommandText = strSQL
cmd.ExecuteNonQuery()
Else
adpt = New SqlClient.SqlDataAdapter(strSQL, cnn)
adpt.Fill(rst)
ExecuteSQL = rst
End If
Catch ex As Exception
errMsg = ex.Message
Finally
rst = Nothing
cnn = Nothing
End Try
End Function End Mole

調用時在asp.net後台寫上txtSQL="SELECT * FROM user";
DBSet=ExecuteSQL(txtSQL,ErrorMsg)就可以查詢db返回結果了。

Ⅵ vb.net 連接 sql server 資料庫，菜鳥問題，請高手解答

說明：
da.Fill(ds)是使用da的Fill方法，把通過檢索得到的數據填充到ds里，ds是一個或一組 DataTable 對象組成；
da.Fill()方法，有好幾種重載，我這里介紹我常使用的兩種形式；
一，就是你使用的形式
da.Fill(ds)
這里，是把通過Select語句檢索的得到的數據行，添加到默認的也是唯一的DataTable里
你第一次使用da.Fill(ds)，得到了你想要得到的結果。
當你再次使用該語句da.Fill(ds)的時候，會把檢索到的行添加到原來的數據行的後面。（你可以把你原來代碼兩次添加的結果分別用2個網格來顯示，理解一下我說的）
注意：僅僅把檢索到的新行的列名，與原來列名相同的數據添加，不存在的列名不添加。如果所有列名都不存在，僅添加空行。
二，為了獲得不同的檢索數據，採用以下兩種方式解決
方法1，如果前面檢索到的數據已經不需要了，那麼可以；
ds.Clear() '先清空第一次檢索得到的數據
da.SelectCommand.CommandText = "select * from 備注表 where 變數 = 'gsmc'"
da.Fill(ds)
方法2，如果前面檢索到的數據還需要，那麼可以在填充時指定表的名稱
第一次檢索；
da.SelectCommand.CommandText = "select * from 密碼表"
da.Fill(ds,"檢索1") 『這里用"檢索1"表示並保存到第一次檢索的獨立表裡
ComboBox1.Text = ds.Tables("檢索1").Rows(0).Item("用戶名")
這行也可以用；
ComboBox1.Text = ds.Tables(0).Rows(0).Item("用戶名")
第二次檢索；
da.SelectCommand.CommandText = "select * from 備注表 where 變數 = 'gsmc'"
da.Fill(ds,"檢索2") 『這里用"檢索2"表示並保存到第二次檢索的獨立表裡
TextBox1.Text = ds.Tables("檢索2").Rows(0).Item("備注")
這行也可以用；
TextBox1.Text = ds.Tables(1).Rows(0).Item("備注")

Ⅶ 請問：VB.NET怎麼連接SQL

Public sqlcon As System.Data.SqlClient.SqlConnection
Public sqladapter As System.Data.SqlClient.SqlDataAdapter
Public command As System.Data.SqlClient.SqlCommand
Public ds As System.Data.DataSet
Public dr As System.Data.DataTable

sqlcon = New System.Data.SqlClient.SqlConnection
sqlcon.ConnectionString = "Server=(local); Initial Catalog=test1 ; User ID="資料庫sa用戶"; Password="資料庫密碼""
ds = New System.Data.DataSet
dr = New System.Data.DataTable(" test2 ")
ds.Tables.Add(dr)
sqladapter = New System.Data.SqlClient.SqlDataAdapter("select * from test2 ", sqlcon)
sqlcon.Open()
sqladapter.Fill(dr)
sqlcon.Close()
界面上控制項
DataGridView1.DataSource = dr

Ⅷ vb.net 連接sql資料庫

Imports System.Data
Imports System.Data.OleDb
Mole Mole1
Public Function MdbMytab(ByVal str_select As String) As DataTable
Dim conn_mdb As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mdb.mdb")
Dim cmd As New OleDbCommand(str_select, conn_mdb)
Dim da As New OleDbDataAdapter(cmd)
Dim mytb As DataSet = New DataSet
da.Fill(mytb, 0)
MdbMytab = mytb.Tables(0)
conn_mdb.Close()
End Function
End Mole
以上為模塊代碼

以下為窗體代碼：
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim mytb As DataTable = MdbMytab("select * from 表1")
DataGridView1.DataSource = mytb
ComboBox1.DisplayMember = "姓名"
ComboBox1.DataSource = mytb
End Sub
End Class

Ⅸ vb.net連接sql

嗯，我看了你的代碼，並不是沒有連上資料庫，而是你的sqllj 沒有進行open操作
，，你在實例化SqlConnection類後，應該再調用sqllj.open()方法來打開資料庫連接，這樣，你去判斷sqllj.State 的時候，才准確，你都沒進行打開這個動作，如何去判斷他的狀態是打開的！！

Ⅹ vb.net怎麼連接SQL資料庫

ImportsSystem.Data
ImportsSystem.Data.SqlClient

PublicClassForm1
InheritsSystem.Windows.Forms.Form
'資料庫連接對象
'錯誤的寫法
'=NewSqlConnection("server=(local);database=pubs;userid=sa;password=")
'正確寫法
("DataSource=127.0.0.1;InitialCatalog=pubs;userid=sa;password=;")
'數據適配器
=NewSqlDataAdapter()
'DataSet
DimobjDataSetAsDataSet=NewDataSet()

PrivateSubForm1_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.Load
'設置查詢命令屬性
objDataAdapter.SelectCommand=NewSqlCommand
objDataAdapter.SelectCommand.Connection=objConnection
objDataAdapter.SelectCommand.CommandText="selectau_lname,au_fname,title,.au_id=titleauthor.au_idjointitlesontitleauthor.title_id=titles.title_idorderbyau_lname,au_fname"
objDataAdapter.SelectCommand.CommandType=CommandType.Text

'打開資料庫連接
objConnection.Open()

'填充DataSet對象
objDataAdapter.Fill(objDataSet,"authors")

'關閉資料庫連接
objConnection.Close()

'給DataGrid綁定數據
grdAuthorTitles.DataSource=objDataSet
grdAuthorTitles.DataMember="authors"

'清除
objDataAdapter=Nothing
objConnection=Nothing
EndSub
EndClass