这是什么原因啊我装的时候也是那样 ,方便恢复一下 给我发邮件也成。1607228694@qq.com 非常非常需要你的回答
æç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çå®è£ ç;ä¸æçé¢,å¾å¥½å®è£ ç!ç¥ä½ æå!!!追é®
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çå®è£ ç;ä¸æçé¢,å¾å¥½å®è£ ç!ç¥ä½ æå!!!追é®
è£ çå ç?é£æ²¡å®è£ 好æä¹åå ï¼èé¸ è¯¦ç»ä¸ç¹åï¼ï¼ï¼ï¼
追çå¨[æ§å¶é¢æ¿](å¢æ·»/å é¤)软件å¤,å°å ¶[å æ].æç¨360软件å°å ¶[å¸è½½].åè¡éæ°å®è£ .没æ好åæ³.å¨å¨æè¯ä¸è¯å§!
温馨提示:答案为网友推荐,仅供参考