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绑定到数据控件那就是绑定数据源