Declared hjælp

Hvad vil du???

*GG* Ja det glemte jeg vis i farten ;-)

Jeg er totalt grøn på dette område, så til at starte med leger jeg bare lidt...

Den skriver som fejl
Conn
rs
SQL
APP
er ikke declared...

Så det ville jeg gerne have hjælp til.

Prøv det her så:

Dim objConn As ADODB.connection
Dim objRs As ADODB.recordset

Private Sub Form1_Load()
    Dim strSQL As String
   
    Set objConn = New ADODB.connection
    Set objRs = New ADODB.recordset

    objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\db.mdb"
   
    strSQL = "Select * FROM produkts"
    objRs.Open strSQL, objConn
   
End Sub

Private Sub Command1_Click()
    TextBox1 = objRs("text")
End Sub

Hva' med at angive dine variable ligesom:
Private db As Database
Private dbWS As Workspace
Private rs As Recordset
Private dbtabel As TableDef
Private dbFelt As Field

mv.

mvh Jan

jrl0469 >> Hvordan vil det så se ud i mit exembel?

somaliomar >> nu skriver den:
Type 'ADODB.recordset' is not defined.
Name 'App' is not declared.

Har du prøvet somaliomar's svar?
Jeg anvender i øvrigt DAO og bruger ikke sql... Under alle omstændigheder skal du vælge reference i "Project - References" til "ActiveX Data Objects 2.0"! (altså hvis ikke du allerede har det)

mvh Jan

Først gør som jrl0469 skriver :
- Gå ind i Projects -> References...
- Vælg "ActiveX Data Objects 2.xx" hvis du ikke har det

Fejlen:
Name 'App' is not declared.

kommer fordi der er ikke noget der hedder App. Prøv at ændre linjen:
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\db.mdb"

til

objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=X:\DINDATABASESTI\db.mdb"

Tak for hjælpen...

Takker for point