[LØST] Connection til Access for insert into og update muligheter

[Wolverin]

Hei.

 

Sitter med en gammel versjon av Visual Basic script, og forsøker å hente ut noen variabler og sette disse inn i en database. (Bruker access fordi den er gratis og enkel å bruke i dette tilfellet).

 

Har forsøkt med diverse koder. eksempel:

Set cnn=CreateObject("ADODB.Connection") cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= C:\sql\result.mdb"

cnn.Execute "INSERT INTO test(felt_1, felt_2) VALUES ('test', 'Test2')"

 

Her får jeg beskjed om at data source mangler eller ikke kan finnes og jeg får også beskjed om at driver ikke er spesifisert.

 

Forsøkte å lage en ODBC kobling som heter DBAccess som peker på filen min.

 

Koden er da forsøkt med:

Set cnn=CreateObject("ADODB.Connection")cnn.ConnectionString= "ODBC;DNS=DBAccess;UID=me"

Får da opp at det er feil syntax.

Noen som kan hjelpe?

koder. eksempel:

Endret 17. juni 2008 av Wolverin

[brgr]

Hvis du deler koden er det jo kanskje litt lettere da.

 

Men kode som kanskje virker bedre.

 

 

Set Kon = CreateObject("ADODB.Connection")

Set Rs = CreateObject("ADODB.RecordSet")

Kon.Open "DRIVER={Microsoft Access Driver (*.mdb)};UID=admin;DBQ=c:\minfil.mdb"

Rs.LockType = 3

Rs.CursorType = 2

 

Rs.Open "SELECT * FROM Test;", Kon

Rs.AddNew()

Rs("Felt1") = verdi1

Rs("Felt2") = verdi2

Rs.Update()

Rs.Close()

Kon.Close

Set Rs = Nothing

Set Kon = Nothing

 

 

[Wolverin]

Hvis du deler koden er det jo kanskje litt lettere da.

 

Men kode som kanskje virker bedre.

 

 

Set Kon = CreateObject("ADODB.Connection")

Set Rs = CreateObject("ADODB.RecordSet")

Kon.Open "DRIVER={Microsoft Access Driver (*.mdb)};UID=admin;DBQ=c:\minfil.mdb"

Rs.LockType = 3

Rs.CursorType = 2

 

Rs.Open "SELECT * FROM Test;", Kon

Rs.AddNew()

Rs("Felt1") = verdi1

Rs("Felt2") = verdi2

Rs.Update()

Rs.Close()

Kon.Close

Set Rs = Nothing

Set Kon = Nothing

 

 

Koden var og er delt, var cut and paste som lurte oss litt. Beklager det.

Skal teste koden jeg fikk av deg.

[GeirGrusom]

Det hjelper ofte IKKE å klippe og lime kode, faktisk er det sett litt ned på.

 

Det er faktisk ikke noe som heter "klipp og lim programmering" fordi det ikke er mulig å lage et program på den måten.

[brgr]

Vel, bruker den koden selv da..

I ASP vel og merke, så vet ikke helt om den virker i VBScript...

Og viser hvordan du kobler til databasen, og hvordan du legger inn nye data.

 

Fortsatt, den er ikke bare klipt og limt fra alle mulige steder.. Den VIRKER for meg på ASP...

[Wolverin]

Det hjelper ofte IKKE å klippe og lime kode, faktisk er det sett litt ned på.

 

Det er faktisk ikke noe som heter "klipp og lim programmering" fordi det ikke er mulig å lage et program på den måten.

 

Nå ser jeg ikke poenget i å skulle skrive koden jeg hadde stående i VBScriptet for å fortelle dere kode eksempel på det jeg ikke fikk til å fungere, så jeg brukte da klipp og lim, til kodeboksen her på forumet.

Om du ser litt ned på det, så må jeg si at jeg ikke skjønner at du gidder å skrive alt du skal legge ut her om du har det stående ordrett en annen plass?!!!..!!

 

 

Vel, bruker den koden selv da..

I ASP vel og merke, så vet ikke helt om den virker i VBScript...

Og viser hvordan du kobler til databasen, og hvordan du legger inn nye data.

 

Fortsatt, den er ikke bare klipt og limt fra alle mulige steder.. Den VIRKER for meg på ASP...

 

Den fungerte ikke helt som ønsket i VBScript, men du gav meg noen pekepinner på hvor jeg burde teste for å få det til å funke.

 

Koden som fungerte for meg ser ut som følger:

Set cnn=CreateObject("ADODB.Connection")
Set rs=CreateObject("ADODB.RecordSet")

cnn.Open "Driver={Microsoft Access Driver (*.mdb)};UID=me;DBQ=c:\sql\result.mdb"
rs.LockType=3
rs.cursortype = 2

rs.Open "select * from input;",cnn
rs.AddNew Array("felt1", "felt2", "felt3"), array("test1", "Test2","test3")
rs.update

rs.close
cnn.close

set rs = Nothing
set cnn = Nothing

 

Tusen takk for hjelpen!