我的VB与SQL Server2000结合编程的[进入系统]代码:
Sub Main()'进入SQL server2000
On Error Resume Next
Dim RetVal
mConn = "User ID=sa;pwd=;driver={SQL Server};server=NEDTWO-56958BFB;database=工资核算;dsn=server_FAN"
mConn.CursorLocation = adUseClient '设置为客户端Server=V5J3D1;database=MY_data
mConn.Open
If Err Then
MsgBox "服务器 SQL SERVER 连接错误!!,请检查服务器的连接 !!", 64, "SERVER SQL 2000 连接提示"
End
End If
Beep
End Sub
---------------------------------------
你的问题就是没安装好!以上的代码你现在还没到那个阶段了,以后再看吧!
---------------我们一般安装的光盘:1of 4的安装盘;中文界面,很好安装的!祝你成功!!!