Hej
jag har en uppgift som jag vill lösa i VB
det är så simpelt som att man skall kunna skriva ett ord i en TextBox (txtNamn) och sedan klicka på en knapp (cmdOk), då när man klickarpå denna skall innehållet i TextBoxen skickas till en databas tabell Förnamn (db.mdb) Accsess databas

Detta är class modulen:
<code>
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public sql As String

Sub koppla(sqlstring)

conn.Open "DSN=DNS"
sql = sqlstring
rs.CursorLocation = adUseClient

rs.CursorType = adOpenDynamic
rs.Open sql, conn

End Sub

Sub Stang()
rs.Close
conn.Close
End Sub
</code>

Detta är Form1
<code>
Dim Cdbo As New dbo
Private Sub Command5_Click()
Call Cdbo.koppla("insert into elevlista (Förnamn)" & _
"values('" & txtNamn & "'")
End Sub

Private Sub Form_Load()
'Call Cdbo.koppla("select * from elevlista")

Dim oText As TextBox

End Sub
</code>

Någon som kan har lust att jälpa mig !!

Redan vid conn.Open "DSN=DNS" kan du skriva en sql-sats som skjuts in.

Ex:
conn.Open "DSN=DNS"
conn.execute("insert into test (förnamn) values('" & förnamn & "')"

set conn = nothing

Fungerar ej Pelle !

eller jag får det inte att fungera !
det finns inte ett sådant här enkelt exempel man kan ladda ner på sidan ? jag har läst alla tips och tris och alla kurser men allt är lite för kommlicerat ! eller någon som kanske kan göra ett ?

Vid första anblicken ser det rätt ut, men det är lätta att missa något... Vad är det som inte fungerar? Felmeddelande?

/Johan

Du behöver inte använda rst.Open Om du endast kör en INSERT sql. Det räcker med conn.Execute( sql-kod ) som Pelle föreslog.

<code>
Sub koppla(sqlstring)

Dim conn As New ADODB.Connection
conn.Open "DSN=DNS"
conn.Execute( sqlString )
Set conn = Nothing

End Sub
</code>

Jag antar också att du öppnar din koppling till databasen på korrekt sätt och att du inte får fel av den anledningen?

Förslag:

Bygg en bra felhantering av din kod så att du ser vad som blir fel.
Försök att skilj på fel som kommer från utvecklingsfel och från normal drift

Tex utvecklingsfel där sql-satsen blivit felaktig

Object Required ! får jag som fel mess !

vad kan vara fel ?

Vid vilken rad blir felet?

Har du satt referens till ADO ?

Är DSN rätt deklarerad med riktig drivrutin ?

Finns databsen där den anges enligt DSN ?