Avatar billede lakr1ds Nybegynder
09. oktober 2001 - 11:27 Der er 7 kommentarer og
1 løsning

Skriv til database uden data1.recordset

Jeg skal skrive til en database når jeg har indtastet et nick så skulle den gerne gemme det i en database. jeg bruger ikke data1. jeg har skrevet følgende:

Private Sub Form_Load()
    dbconn = \"Provider=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ= c:/ROL/rol.mdb;UID=;PWD=;\"
End Sub

Private Sub Command1_Click()

  Dim oConn As New ADODB.Connection
  Dim oRS As New ADODB.Recordset
  Dim sql As String
 
oConn.Open dbconn
 
sql = \"SELECT Nick FROM users\"



oRS.Open sql, oConn, adOpenKeyset, adLockOptimistic

oRS.AddNew
    oRS(\"Nick\") = txtNick.Text
oRS.MoveNext

oRS.Close
oConn.Close
End Sub

Men når jeg vil skriver siger den at der ikke er en standartdriver. og markere \'oConn.Open dbconn\' Jeg er sikker på at \'dbconn = \"Provider=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ= c:/ROL/rol.mdb;UID=;PWD=;\"\' er rigtig da jeg har brugt den til at læse fra et andet sted og det virker fint... HJÆLLLLLP!!!
Avatar billede terry Ekspert
09. oktober 2001 - 11:34 #1
Not too hot on ADO but I think you need to use a command object to insert. Your recordset cant be used for this
Avatar billede jper Nybegynder
09. oktober 2001 - 12:16 #2
Men du tager fejl, connection string til en access DB er:

dbconn = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Sti til min DB.mdb;Persist Security Info=False\"
Avatar billede jper Nybegynder
09. oktober 2001 - 12:20 #3
Hov jeg mener: connection string til en access 2000 database
Avatar billede terry Ekspert
09. oktober 2001 - 12:22 #4
jper> \"Hvem tager fejl?\"
Avatar billede lakr1ds Nybegynder
09. oktober 2001 - 12:32 #5
Jper > Det virker stadig ikke..:(

den siger. kildenavnet findes ikke(hvilket jeg ved den gør da jeg har brugt den før et sted), og der er ikke angivet en standardriver.?!

Det er noget seriøst tis...

HjææLP!
Avatar billede lakr1ds Nybegynder
09. oktober 2001 - 12:36 #6
Jper - *Weee* virker nu thanxz...det var nu ikke lige din hjælp men min egen dumhed, du for de 100 point... ;)
Avatar billede jennemaan Nybegynder
09. oktober 2001 - 12:36 #7
Private Sub Form_Load()
    dbconn = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\\ROL\\rol.mdb\"
End Sub


Private Sub Command1_Click()

  Dim oConn As ADODB.Connection
  Set oConn=New ADODB.Connection
  oConn.Opem dbConn

  oConn.Execute(\"INSERT INTO Users (Nick) VALUES(\'\" & Replace(txtNick.Text,\"\'\",\"\'\'\") & \"\')\")

  oConn.Close
  Set oConn=Nothing

End Sub


 

/Jennemaan
Avatar billede lakr1ds Nybegynder
09. oktober 2001 - 12:38 #8
Jeg havde glemt....

Dim dbconn As String

*loooL* Jeg fandt det i en gammel kode..!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester