如何用VB实现与Access数据库实现连网呢??急需回复!谢谢!

Question

怎样用VB里的ADO属性把一个程序连接到网络上去,就是可以实现双机版的,在这台机器上可以访问另一台机器上的数据,代码不知道怎样写?ADO属性不知道怎样设置才能连接到网络上?请高手们详细写明,在此多多谢谢了,很急,急需回复!

Answer 1

Public Function Connect_Sql(Server As String, Database As String, User As String, Password As String, Conn As ADODB.Connection) As Boolean
On Error GoTo err
Set Conn = New ADODB.Connection
Conn.Provider = "sqloledb"
Conn.Properties("Data Source").Value = Server 'SQLServer服务器名
Conn.Properties("Initial Catalog").Value = Database 'App.Path & "\" & "phone.mdf" '数据库名
Conn.Properties("User ID").Value = User '登录用户名
Conn.Properties("Password").Value = Password '密码
Conn.ConnectionTimeout = 5
Conn.CursorLocation = adUseClient
Conn.Open
Connect_Sql = True
Sql_F = True
Exit Function
err:
Connect_Sql = False
Sql_F = False
End Function

Answer 2

acess就要设置该文件夹 everyone完全控制 其他的操作都一样