vb连接SQL的问题!急急!!!

Question

这是我的连接代码，请帮帮忙!!!Private Sub Form_Load()
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
 
Set db = New ADODB.Connection
db.Provider = "sqloledb"
db.ConnectionString = "user ID=sa;data source=jingdianxia2;initial catalog=pubs"
db.Open
Debug.Print db.StateSet rs = New ADODB.Recordset
rs.ActiveConnection = db
rs.Open "select * from authors"End Sub

Answer 1

你的db.ConnectionString 可能是有问题的，你应该把写成你的主机ip地址
如我的为
Data Source=210.46.97.77

Answer 2

提示：实时错误'-2147467259(80004005)':
　　　[DBNMPNTW]拒绝访问
是不是SQL设置或是网络设置的问题？

Answer 3

你可以将你的数据库放到ODBC里面去
然后将你的代码改为：db.ConnectionString = "file dsn=jingdianxia2;uid=sa;pwd="""