怎樣在vb中寫sql語句

先是定義一個字符串變量，然后把你要寫的SQL語句賦給它。

這時如果要把一些VB控件里的數據加進去也一樣就是一個字符串聯接而以，唯一要注意的是標點符號的使用如：' 這個符號，因為很多時候要用到這個，我碰到好多人都是這里出錯了。例如：Dim strsql As String strsql = "select * from TblSystemData" If dh。

Text " " Then '單號 strsql = strsql & " where ChrCode like " & "'" & dh。Text & "'" End If 當然你也可以把第一個它移到前面去。

但我是單獨放出來，這樣更清楚一點。接著是執行了。

這個你可以看一下二樓的。例如：rst3。

Open strsqlm con1_offer, adOpenKeyset, adLockOptimistic, adCmdText 這方面詳細的知識你就要找書來看一下更好了，也可以去加一些QQ的群，里面人多，方便啊。

vb中如何使用數據庫vb最好是用sql語言

通過中間件ADO或去連接 '引用ADO（"工程"/"引用"/Microsoft ActiveX Data Objects 2。

X Library） Private Sub Command1_Click() Dim cn As New ADODB。 Connection, rs As New ADODB。

RecordSet '混合驗證方式的連接： 'cn。ConnectionString = "Provider=SQLOLEDB。

1;Persist Security Info=False;User ID=登陸用戶名；Password=登錄密碼；Initial Catalog=數據庫名；Data Source=服務器別名/IP" '集成驗證的連接： cn。 ConnectionString = "Provider=SQLOLEDB。

1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=數據庫名；Data Source=服務器別名/IP" cn。 Open rs。

CursorLocation=adUseClient'設置客戶端游標 rs。Open "select * from 表1", cn, 3, 2 。

。

。 End Sub。

vb中如何執行SQL語句

Private Sub Command1_Click()

On Error GoTo errhandle

Dim conn As New *tion, rs As New *set

If Trim(*) = "" Then

MsgBox "沒有輸入sql語句"

Exit Sub

Else

If Left(Trim(*), 6) = "select" Then

MsgBox "不是查詢語句"

Exit Sub

End If

* "Provider=*.4.0;Data Source=" & * & "*;Persist Security Info=False"

* Trim(*), conn, adOpenKeyset, adLockOptimistic

Set *urce = rs

Set rs = Nothing

Set conn = Nothing

Exit Sub

errhandle:

MsgBox "輸入的sql語句有誤"

End Sub

vb連接sql數據庫-在VB程序中怎么樣能與SQL數據庫相連呢？用什么語

如果你喜歡用代碼，可以試試下面的方法：在引用中添加Microsoft ActiveX Data Objects 2。

X Library 代碼如下： Dim CN As New ADODB。Connection Dim RS As New ADODB。

Recordset Dim strServerName, strUID, strPWD, strDataBase Dim strConnect As String '定義連接字符串 strServerName = 服務器名，或者服務器IP strUID = 用戶名 strPWD = 密碼 strDataBase = 數據庫名 strConnect = "Driver={SQL Server};Server=" & strServerName & ";UID=" & strUID & ";PWD=" & strPWD & ";DataBase=" & strDataBase '連接到數據庫 CN。 Open strConnect Set RS = CN。

Execute("SELECT * FROM 。

") 。

怎樣在VB中實現SQL語言的查詢

我說的是用ADO連接的不用添加控件，只有代碼。這個對于數據的修改操作比較方便。但不便與察看數據。

Set Coon = CreateObject("*tion")

Connstr = "Provider=*.4.0;Data Source=" & * & "\*;"'*為數據庫文件名字，必須放在工程文件同目錄下

* Connstr

Set rs = CreateObject("*set")

Sql = "select * from 表名"

* Sql, Coon, 1, 3

'下面為添加數據（新建紀錄）

rs（"字段名"）=1

…………

'下面為刪除數據

'下面為關閉連接

set rs=nothing

轉載請注明出處華閱文章網 » 怎樣在vb中寫sql語句

怎樣在vb中寫sql語句