Hej,

Jag försöker koppla upp mig mot en SQL-databas och läsa en tabell.
Koden ser ut så här.

<code>
Dim Con As ADODB.Connection
Dim rst As ADODB.Recordset

ConStr = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _
"User ID=sa;Initial Catalog=axdb25;" & _
"Data Source=laptop_dell"

Set Con = CreateObject("adodb.connection")
Con.Open ConStr

Set rst = Con.Execute("SELECT * FROM CUSTTABLE")

While Not rst.EOF
List1.AddItem (rst!AccountNumber)
rst.MoveNext
Wend
</code>

Jag får ett felmeddelande som säger
'Invalid objectname CUSTTABLE'

Tabellen finns garanterat i databasen.
Är det nåt som fattas i koden ??

Mvh
Martin

<code>
Det ser inte ut som om du har satt namnet på den databas som ska
användas. Eftersom din egna tabell inte finns där så får du felmeddelandet.

Du anger default så här:
con.DefaultDatabase = txtDatabas.Text
'kan vara bra med nedanstående kontroll också, för om databasnamnet
'inte fanns kommer .DefaultDatabase att fortsätta vara master.
If con.DefaultDatabase = "master" Then

/Emma
</code>

TIPS
För att vara säker på att min connectíonstring är korrekt brukar jag skapa en .udl fil. När jag kört udl-filen öppnar jag den som .txt och kopierar texten.

//NETTAN

Hej....
Databasen heter AXDB25.
Och testar jag min connection till databasen så är den ok....

Martin

Har du testat att breaka i koden och kolla databasnamn, servernamn etc?
Svårt att säga vad som är fel när man inte ser helheten.

/E

Har du en case sensitive server?
Testa:
SELECT * FROM pubs..authors
SELECT * FROM pubs..AUTHORS

Den första funkar, den andra funkar bara på Case Insensitive system.

/micke