ADO utan Access

7 svar · 258 visningar · startad av Insider 25 dec. 2001

InsiderMedlem sedan jan. 2000978 inlägg

Trådstart25 dec. 2001 16:54#1

Måste man ha Access installerat för att db-kopplingar med ADO ska fungera i projektet?

Kod:koppling.Open "driver={MicroSoft Access Driver (*.mdb)};DBQ=C:\VB\activeXcontrol\personer.mdb"

Jag laddade hem 'Microsoft Data Access Components 2.7 RTM' från MS's hemsida. Där ingår väl referensen man behöver? ('Microsoft ActiveX Data Objects 2.6 Library')

Nåt strular iaf. Felmeddelande:
"[Microsoft][Drivrutin för ODBC Microsoft Access]Syntaxfel (komma) i frågeuttrycket ......."

Men SQL-satsen funkade på en annan dator...

JonMedlem sedan juli 20011 304 inlägg

25 dec. 2001 21:54#2

Ska funka...

Får man se lite mer kod?
Använd Jet4.0 drivare istället. snabbare. Vissa saker skiljer sig en liten aning oxå. Det kan vara nåt sånt som kärvar

InsiderMedlem sedan jan. 2000978 inlägg

27 dec. 2001 00:11#3

Hur skriver man om man vill använda Jet 4.0? (har ej tillgång till hjälpen)

Men om jag inte har Access installerat, då borde väl inte drivrutinen finnas heller? *är lite korkad*

[Redigerat av Insider den 27 dec 2001]

JonMedlem sedan juli 20011 304 inlägg

27 dec. 2001 08:26#4

Du borde ha Jet om du har office 2000 installerat (eller senare). Men jag är inte helt säker...

Det är inte säkert att det löser några problem heller. Visa lite kod säger jag ju!

Men såhär ser connectionsträngen ut... Äsch. Ger en snutt kod istället

nåt sånt här:
Kod:
Public db As ADODB.Connection

Kod:
dim DbPath as String
dim DbPassword as String
dim strConn as string

DbPath = "C:\databas.mdb"
DbPassword = "dittlösenordomduharnåt"

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPath & ";Jet OLEDB:Database Password=" & DbPassword & ";"
Set db = New ADODB.Connection
db.Open strConn

InsiderMedlem sedan jan. 2000978 inlägg

27 dec. 2001 18:55#5

Jag har inget Office alls installerat. Men jag har 97an liggande på CD. Om den nu räcker?

Här får du lite kod.
Subben längst ner körs vid en händelse.

Kod:Private Sub Form_Load()
koppling.Open "driver={MicroSoft Access Driver (*.mdb)};DBQ=C:\VB\activeXcontrol\personer.mdb"
End Sub

Felet blir vid ***
Kod:Private Sub GIS_DiggaRekt(Xleft As Double, Xright As Double, Ytop As Double, Ybot As Double)
SQL = "SELECT * FROM personer WHERE X BETWEEN " & Xleft & " AND " & Xright & " AND Y BETWEEN " & Ybot & " AND " & Ytop
rec.Open SQL, koppling ***HÄR BLIR DET FEL
Do Until rec.EOF
' lägg till i lista
lstNamn.AddItem rec!Namn
lstPnr.AddItem rec!PNR
rec.MoveNext
Loop
rec.Close
End Sub

'rec' och 'koppling' har jag dimmat på andra ställen.

JonMedlem sedan juli 20011 304 inlägg

27 dec. 2001 19:42#6

Ok. ser ju bra ut.
Och om du skriver ut den ihopbygda sql-strängen på exempelvis en label. Hur ser den ut då?

InsiderMedlem sedan jan. 2000978 inlägg

27 dec. 2001 20:01#7

SELECT * FROM personer WHERE X BETWEEN 1791237,14569919 AND 1794773,9319187 AND Y BETWEEN 7291602,87173577 AND 7293770,5794187

JonMedlem sedan juli 20011 304 inlägg

2 jan. 2002 10:30#8

Det är kommat:
BETWEEN 1791237**,**14569919
som det klagas på.