7 svar · 232 visningar · startad av Insider
Måste man ha Access installerat för att db-kopplingar med ADO ska fungera i projektet?
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">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...
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 :)
------------------
The computer is mightier than the pen, the sword, and usually, the programmer.
[Redigerat av Jon den 25 dec 2001]
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* :q
[Redigerat av Insider den 27 dec 2001]
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:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Public db As ADODB.Connection
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
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
------------------
The computer is mightier than the pen, the sword, and usually, the programmer.
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.
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">Private Sub Form_Load()
koppling.Open "driver={MicroSoft Access Driver (*.mdb)};DBQ=C:\VB\activeXcontrol\personer.mdb"
End Sub
Felet blir vid ***
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">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.
Ok. ser ju bra ut.
Och om du skriver ut den ihopbygda sql-strängen på exempelvis en label. Hur ser den ut då?
------------------
The computer is mightier than the pen, the sword, and usually, the programmer.
SELECT * FROM personer WHERE X BETWEEN 1791237,14569919 AND 1794773,9319187 AND Y BETWEEN 7291602,87173577 AND 7293770,5794187
Det är kommat:
BETWEEN 1791237**,**14569919
som det klagas på.
------------------
The computer is mightier than the pen, the sword, and usually, the programmer.
