vb網路資料庫

⑴ 如何用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訪問區域網中的資料庫

如果你是新手，就在VB的部件中添加ADO控制項，然後點擊控制項，按滑鼠右鍵，點擊屬性，在屬性頁中選擇「生成」，選擇你要訪問的數據類型，最後就會出現「資料庫連接屬性」，伺服器的名稱可以用名或IP，填好資料庫訪問密碼，選擇好資料庫。填好之後點擊「測試連接」看連接是否成功。確定後返回屬性頁，記錄源選擇「2」，再選好一個表。完成。
你還可以在完成後添加一個datagrid的控制項，將datasource設定為上述的ADO控制項，這樣就可以看到資料庫內容了。在了解這個數據操作的基礎上再將ADO的內容轉為語句。當然，你如果有一定的資料庫操作基礎，ADO是很容易上手的。

⑶ VB如何連接網路資料庫

在工程里找到Microsoft ADO Data Control控制項,拖到窗體上,事件中這么寫:
Private Sub Coammand1_Click()
Adodc1.connectionstring="Driver={SQL Server};Server=伺服器IP;Uid=用戶名;Pwd=密碼;DataBse=資料庫名"
Adodc1.RecordSource="SELECT * FROM 表名 WHERE 條件"
Adodc1.Refrsh
End Sub
要進行數據操作就這樣引用:
Adodc1.RecordSet.Fields("欄位名")這就是操作數據欄位
把Adodc1綁定到數據控制項那就是綁定數據源