Ik wil een odbc connectie opzetten om data toe te voegen in een bestand.
volgende is wat ik tot nu toe heb :
Sub insert()
Dim ad As ADODB.Connection
naam = "Names;Database=names.nsf;Server=local;UserName=;EncryptMaxSubquery=20;MaxStmtLen=4096;MaxRels=20;MaxVarcharLen=254;KeepTempIdx=1;MaxLongVarcharLen=512;ShowImplicitFlds=0;MapSpecialChars=1;ThreadTimeout=60;"
Set ad = New ADODB.Connection
ad.ConnectionString = "ODBC;DSN=" & naam
ad.Open
' als voorbeeld iets toevoegen
ad.Execute "INSERT INTO Person(FullNameInput,CompanyName) VALUES ('VAN DEN BULCKE','JOHNSON')"
End Sub
Ik krijg als foutmelding : Microsoft ODBC stuurprogrammabeheer ; de naam van de gegevensbron is niet gevonden en er is geen stadaard stuurprogramma opgegeven
De Odbc connectie bestaat echter en noemt wel degelijk Names
De fout geeft hij bij : ad.Open
Enig idee ?
volgende is wat ik tot nu toe heb :
Sub insert()
Dim ad As ADODB.Connection
naam = "Names;Database=names.nsf;Server=local;UserName=;EncryptMaxSubquery=20;MaxStmtLen=4096;MaxRels=20;MaxVarcharLen=254;KeepTempIdx=1;MaxLongVarcharLen=512;ShowImplicitFlds=0;MapSpecialChars=1;ThreadTimeout=60;"
Set ad = New ADODB.Connection
ad.ConnectionString = "ODBC;DSN=" & naam
ad.Open
' als voorbeeld iets toevoegen
ad.Execute "INSERT INTO Person(FullNameInput,CompanyName) VALUES ('VAN DEN BULCKE','JOHNSON')"
End Sub
Ik krijg als foutmelding : Microsoft ODBC stuurprogrammabeheer ; de naam van de gegevensbron is niet gevonden en er is geen stadaard stuurprogramma opgegeven
De Odbc connectie bestaat echter en noemt wel degelijk Names
De fout geeft hij bij : ad.Open
Enig idee ?
