vb連接sql語句
Public My_Cnn As New ADODB.Connection '連接資料庫
StrCnn = "Provider=SQLOLEDB.1;Password=密碼;Persist Security Info=True;User ID=用戶名;Initial Catalog=資料庫名;Data Source=伺服器名"
My_Cnn.CursorLocation = adUseClient
My_Cnn.Open StrCnn
使用資料庫
Dim sql As String
Dim My_temp As New ADODB.Recordset
執行SQL語句（一般插入，刪除數據）
sql = "資料庫語句"
My_cnn.Execute sql
讀取數據
sql = "查詢語句"
My_temp.Open sql, My_cnn, adOpenDynamic, adLockOptimistic
My_temp.field("欄位名")
② 怎麼實現VB和SQL Server連接啊
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Private Sub Form_Load()
conn.ConnectionString = "Driver={SQL Server};SERVER=ALLEN;DATABASE=你資料庫的名字;UID=sa;PWD="
conn.Open()
End Sub
===============================
以上的是連接的代碼
連接以後,每次運用都要先open，記得用完以後要close
代碼如下：
conn.Open("Provider=SQLOLEDB;Data Source=ALLEN;UID=sa;PWD=")
下面就是你的SQL語句，如：sql="select * from test"
最後就是要關閉：conn.close()
③ VB6.0中連接打開SQL資料庫的關鍵性語句是什麼可以舉例說明一下
VB6 訪問SQL 資料庫一般有 ADO,DAO,ODBC 幾中方式，主要根據實際情況決定採用那種方式。
如：
1、在窗體中放置data 數據控制項,採用 ODBC 方式訪問 SQL 資料庫，可以這樣設置
ConStr="ODBC;Driver={SQL Server};Server=伺服器名稱（本地電腦名）;
Uid=sa;Pwd=;
DataBase=資料庫名;LoginTimeOut=0「
設置 Data1 連接屬性
With Data1
.DatabaseName = ""
.Connect = ConStr
.RecordSource = 」Select * From 數據表「 '取得數據源的SQL語句
.Refresh
End With
這樣就可以連接資料庫了 。
2、在程序中利用 ADO 的方式
Dim myCon As New ADODB.Connection
Dim snRes As New ADODB.Recordset
Dim ConStr$
ConStr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa; Password=;
Data Source =伺服器名;Initial Catalog=資料庫名;"
'建立數據連接
myCon.Open ConStr
『建立數據集
snRes.Open "Select * From 表名",myCon, adOpenStatic, adLockReadOnly
這里打開數據記錄集時，可以選擇多種參數,可以參考一下幫助文件...
④ vb中連接SQL查詢語句代碼
『模塊中的代碼
Public Function connectstr() As String
sqlpath = App.Path & "\資料庫.mdb"
connectstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sqlpath & "" 『access資料庫
End Function
Public Function runselect(ByVal sqlm As String) As ADODB.Recordset '返回記錄集
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
On Error GoTo run_error
Set cn = New ADODB.Connection
cn.Open connectstr()
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open Trim(sqlm), cn, adOpenDynamic
Set runselect = rs
Set rs = Nothing
Set cn = Nothing
run_error:
MsgBox Err.Description
End Function
』窗體中的代碼.................
Private Sub Combo1_Change()
Dim mrc As New ADODB.Recordset
Set mrc = runselect("select * from 表 where 欄位='" & Trim(Combo1.Text) & "'")
Set DataGrid1.DataSource = mrc '顯示在 datagrid 中
End Sub
⑤ VB怎麼連接 SQL 資料庫
一個簡單的方法:
首先,建立程序公共模塊輸入以下代碼:
Public conn As New ADODB.Connection
'全局變數 rst 指針
Public rst As New ADODB.Recordset
'全局調用函數 打開資料庫
Public Function openconn()
conn.ConnectionString = "連接信息"
'此連接信息最簡單的生成辦法:
'在任意窗口下建立一新ADODC控制項
'選擇控制項屬性,通用頁,使用連接字元串,生成(U)
'利用該向導生成出字元串,然後將該字元串復制到"連接信息"中即可
conn.Open
End Function
'全局調用函數 關閉資料庫
Public Function closeconn()
If conn.State = 1 Then
conn.Close
Set conn = Nothing
End If
End Function
然後在窗體文件中可以使用的函數:
打開資料庫:openconn
注意:此函數為自定義函數,無參數,定義在公共模塊中!
建立數據表連接:Set rst = conn.Execute("select * from 數據表名")
如做登陸頁可以這樣判斷用戶名密碼:
Text1.Text = RTrim(rst.Fields("id")) And Text2.Text = RTrim(rst.Fields("password"))
注:其中Text1.Text為輸入用戶名TextBOX Text2.Text為輸入密碼TextBOX
數據表中 id 為保存用戶名 password 為保存密碼!此方法為非加密方法!
關閉資料庫函數:
closeconn
Set rst = Nothing
注:此兩行,必須在打開資料庫的情況下使用!並且每打開一次資料庫後必須先使用此兩句將資料庫關閉後才可打開另一資料庫表文件!!!!!否則程序報錯終止!
添加新數據函數
rst.AddNew
rst("欄位名1") = Text1.Text
rst("欄位名2") = Text2.Text
rst.Update
刪除數據函數
rst.Delete
注:使用此函數前,必須保證資料庫指針函數rst指向需刪除數據,移動rst指針可以使用函數:rst.MoveNext或rst.MoveLast
更新數據函數
rst.Open "update 數據表名 set 欄位1='" + Text1.Text + "',欄位2='" + Text2.Text + "' where id='" + Text3.Text + "'", conn, 1, 3
注,其中 where id = 為更新特定數據表的查找!
如果熟悉SQL語句,還可編寫出其他方式的查找,這里就不多做介紹了!
⑥ 如何用VB實現連接SQL資料庫
一是：Public Function ConnectString() _
As String
ConnectString = "Provider=SQLOLEDB;User ID=用戶;Password=密碼;" & "Data Source=" + IP地址 + ";" & "Initial Catalog=資料庫名" _
End Function
二是：
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
" query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, _
adOpenKeyset, _
adLockOptimistic
Set ExecuteSQL = rst
MsgString = "查詢到" & rst.RecordCount & _
" 條記錄 "
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查詢錯誤: " & _
Err.Description
Resume ExecuteSQL_Exit
End Function
以上復制到模塊「Mole1」中
三是:聲明：
Dim ADO1 As Recordset
Option Explicit
Dim MsgText As String
Dim TXTSQL As String
四是：連接
TXTSQL = "select * from 表名"
Set ADO1 = ExecuteSQL(TXTSQL, MsgText)
ADO1.Requery
五是顯示欄位
Set Text1.DataSource = ADO1
Text1.DataField = "欄位"
Set MSHFlexGrid1.DataSource = ADO1
⑦ VB連接SQL最簡單方法
Public conn As ADODB.Connection Public rs As ADODB.Recordset Public addFlag As Boolean '聲明部分 Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String, ByVal sjk As String) As Boolean '連接模塊 填寫資料庫等信息 Dim mag As String On Error GoTo strerrmag Set conn = New ADODB.Connection conn.ConnectionTimeout = 25 conn.Provider = "sqloledb" conn.Properties("data source").Value = Cip '伺服器的名字 conn.Properties("initial catalog").Value = sjk '庫名 'conn.Properties("integrated security").Value = "SSPI" '登陸類型 conn.Properties("user id").Value = users 'SQL庫用戶名 conn.Properties("password").Value = pw '密碼 conn.Open OpenCn = True If conn.State = 1 Then addFlag = True Exit Function strerrmag: mag = "連接失敗！" Call MsgBox(mag, vbOKOnly, "錯誤：") addFlag = False Exit Function '連接錯誤消息 End Function '關閉資料庫，釋放連接 Public Sub cloCn() On Error Resume Next If conn.State <> adStateClosed Then conn.Close Set conn = Nothing End Sub Public Function openRs(ByVal strsql As String) As Boolean '連接資料庫記錄集 Dim mag As String Dim rpy As Boolean On Error GoTo strerrmag Set rs = New ADODB.Recordset If addFlag = False Then rpy = True With rs .ActiveConnection = conn .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open strsql End With addFlag = True openRs = True 'End '將記錄集給rs Exit Function strerrmag: mag = "記錄返回錯誤！" Call MsgBox(mag, vbOKOnly, "錯誤：") openRs = False 'End Exit Function '連接錯誤消息 End Function Public Sub cloRs() On Error Resume Next If rs.State <> adStateClosed Then rs.Clone Set rs = Nothing '釋放記錄集 End Sub
⑧ VB連接SQL
問題補充：
「我想知道相對地址連接~~是SQL
移到的機子上不裝SQL那怎麼辦？？」
1、SQL資料庫連接必須是伺服器，不用地址，因為在安裝SQL
Server
2000
後，你的資料庫地址已經確定；
2、在一般情況下不安裝是不可以的，對於Access資料庫現在的操作系統有其驅動，而沒有SQL的，除非使用網路，例如區域網。
SQL
SERVER
2000
資料庫代碼比較簡單，無非資料庫連接語句不同，其他和Access資料庫沒有大的區別。
如果「程序要移動到其他機子上」，移動到的機子上必須同樣安裝SQL
SERVER
2000
資料庫，而且伺服器名稱、資料庫名稱必須和原伺服器名稱、資料庫名稱相同，如果有資料庫密碼，必須保持一致。
下面是SQL資料庫連接代碼，請參考：
Public
conn
As
New
ADODB.Connection
conn.ConnectionString
=
"driver={SQL
Server};server=伺服器名稱;uid=sa;pwd=密碼;database=資料庫名稱"
conn.Open
⑨ vb怎麼連接sql
在窗體上添加adodc控制項
滑鼠右鍵-adodc屬性-在通用選項卡里，點生成，選for
SQL
Server驅動程序-下一步-連接選項卡里
1.輸入伺服器名稱，2.使用Windows
NT
集成安全設置。3.選擇一個資料庫
點測試連接，看看是否成功。按確定
點記錄源選項卡，命令類型選8，命令文本（SQL）寫：select
*
from
table1
確定，就連接到SQL資料庫的表table1了。
Private
Sub
Command1_Click()
If
Not
Adodc1.Recordset.EOF
Then
Text1.Text
=
Adodc1.Recordset.Fields("line1")
End
If
End
Sub
⑩ vb怎麼連接sql
問題補充：
「我想知道相對地址連接~~是sql
移到的機子上不裝sql那怎麼辦？？」
1、sql資料庫連接必須是伺服器，不用地址，因為在安裝sql
server
2000
後，你的資料庫地址已經確定；
2、在一般情況下不安裝是不可以的，對於access資料庫現在的操作系統有其驅動，而沒有sql的，除非使用網路，例如區域網。
sql
server
2000
資料庫代碼比較簡單，無非資料庫連接語句不同，其他和access資料庫沒有大的區別。
如果「程序要移動到其他機子上」，移動到的機子上必須同樣安裝sql
server
2000
資料庫，而且伺服器名稱、資料庫名稱必須和原伺服器名稱、資料庫名稱相同，如果有資料庫密碼，必須保持一致。
下面是sql資料庫連接代碼，請參考：
public
conn
as
new
adodb.connection
conn.connectionstring
=
"driver={sql
server};server=伺服器名稱;uid=sa;pwd=密碼;database=資料庫名稱"
conn.open