怎么样用代码连接表，连接SQL2000，不用DSN

xthand

RT

这是用DSN的代码

Private Sub Command0_Click()
    Dim db As Database
    Dim tdef As TableDef
    Set db = CurrentDb()
    Set tdef = db.CreateTableDef("TS")
    tdef.Connect = "ODBC;DATABASE=MSPetShop;UID=saWD=;DSN=hh"
    tdef.SourceTableName = "dbo.Account"
    db.TableDefs.Append tdef
End Sub

可不可以不用DSN，用IP能做到吗？怎么写？谢谢。

xthand

自己顶一下。

xthand

知道了

tdef.Connect = "ODBC;Driver=SQL Server;server=ZJH;UID=saWD=;DATABASE=MSPetShop"

换成这样就OK了，哎，自己还是要动手多试试