sql >> Databáze >  >> RDS >> Sqlserver

Chyba připojení k serveru MS Access VBA

K chybě nedojde, dokud se nepokusíte připojit TableDef

Dim myDB As DAO.Database
Dim myTabledef As DAO.TableDef

On Error GoTo Err_handler

Set myDB = CurrentDb
scn = "odbc;driver=SqLServer;" & _
"DATABASE=myDB;SERVER=myServer;Trusted_Connection=Yes;"
Set myTabledef = myDB.CreateTableDef("l_table")

myTabledef.Connect = scn
myTabledef.SourceTableName = "Table1"
myDB.TableDefs.Append myTabledef

Err_handler:
Debug.Print Err.Number & " " & Err.Description



  1. Proč mi Delphi (Zeos) dává widestring pole v SQLite, když požádám o nepodepsaný velký int?

  2. MySQL Select... pro aktualizaci s indexem má problém se souběžností

  3. Použití MySql mezi klauzulí s daty

  4. Najděte možné duplikáty ve dvou sloupcích bez ohledu na velká a malá písmena a speciální znaky