VB访问远程数据库的问题

来源:百度知道 编辑:UC知道 时间:2024/05/29 23:23:58
我刚刚接触VB,才5天,所以有很多白痴问题...希望有不嫌麻烦的好心人帮忙解答!谢谢了!

我可以做到访问本机上的数据库,我是想知道如何访问别人机器上的数据库? 比如我把我做好的程序传给我同学,然后我同学打开那个程序,访问的是我机器上的数据库.当然我机器SQL服务器运行中...
假如我的IP 是 219.*.*.*,以下这部分改如何改动呢?下面的我是在模块里写的..
Public aa
Public db As Connection

Public Function kds()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=学生成绩管理;uid=;pwd=;"
Set aa = New Recordset
aa.Open "select 学号,姓名,性别,语文,数学 from 学生成绩管理", db, adOpenStatic, adLockOptimistic
End Function

第一次提问 希望好心人回答 谢谢了!刚注册的ID只有25分,没有25的选项,给20分吧!

ADO连接SQL Server的方法:

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection
conn.Open Provider = "SQLOLEDB.1;Password=SQL Server密码;Persist Security Info=True;User ID=SQL Server用户名;Initial Catalog=数据库名;Data Source=服务器名或IP"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from 你的表", conn, adOpenDynamic, adLockBatchOptimistic
If Not (rs.BOF And rs.EOF) Then
text1.Text = rs.Fields("字段1")
...
End If

Set rs = Nothing
Set conn = Nothing