/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Database
Fra : Dennis Hansen


Dato : 26-01-02 16:00

Hejsa

Når jeg loader en form, skal jeg have nogle variabler ind i en combo fra en
database, jeg har prøvet med en alm. databaseconnection (Data1), men når jeg
i Form_Load() laver et loop til indsættelse af værdierne, kommer den med
denne fejl

"Run-time error '91'
Object variable or with block variable not set"

Min kode er som følger:
//
Data1.Recordset.MoveFirst

Do While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset("Spilleuge")
Data1.Recordset.MoveNext
Loop
//

Hvad er der galt??

En anden ting, er det ikke muligt at lave et databasekald med en
sql-sætning?? Hvordan??


/Trier



 
 
peter (14-02-2002)
Kommentar
Fra : peter


Dato : 14-02-02 21:13

Jo, du kan gøre det i forbindelse med et f. eks. RecordSet:

Eksemplet er fra DAO360.CHM, som er en MicroSoft hjælpefil, der
sikkert ligger på din PC. Se også ADO*.CHM-filer. Der står masser om
det.

hilsen Peter

Sub NextRecordsetX()

Dim wrkODBC As Workspace
Dim conPubs As Connection
Dim rstTemp As Recordset
Dim intCount As Integer
Dim booNext As Boolean

' Create ODBCDirect Workspace object and open Connection
' object. The DefaultCursorDriver setting is required
' when using compound SQL statements.
Set wrkODBC = CreateWorkspace("", _
"admin", "", dbUseODBC)
wrkODBC.DefaultCursorDriver = dbUseODBCCursor
Set conPubs = wrkODBC.OpenConnection("Publishers", , , _
"ODBC;DATABASE=pubs;UID=sa;PWD=;DSN=Publishers")

' Construct compound SELECT statement.
Set rstTemp = conPubs.OpenRecordset("SELECT * " & _
"FROM authors; " & _
"SELECT * FROM stores; " & _
"SELECT * FROM jobs")

' Try printing results from each of the three SELECT
' statements.
booNext = True
intCount = 1
With rstTemp
Do While booNext
Debug.Print "Contents of recordset #" & intCount
Do While Not .EOF
Debug.Print , .Fields(0), .Fields(1)
.MoveNext
Loop
booNext = .NextRecordset
Debug.Print " rstTemp.NextRecordset = " & _
booNext
intCount = intCount + 1
Loop
End With

rstTemp.Close
conPubs.Close
wrkODBC.Close

End Sub




















On Sat, 26 Jan 2002 16:00:04 +0100, "Dennis Hansen"
<trier@train-sim.dk> wrote:

>Hejsa
>
>Når jeg loader en form, skal jeg have nogle variabler ind i en combo fra en
>database, jeg har prøvet med en alm. databaseconnection (Data1), men når jeg
>i Form_Load() laver et loop til indsættelse af værdierne, kommer den med
>denne fejl
>
>"Run-time error '91'
>Object variable or with block variable not set"
>
>Min kode er som følger:
>//
>Data1.Recordset.MoveFirst
>
>Do While Not Data1.Recordset.EOF
> Combo1.AddItem Data1.Recordset("Spilleuge")
> Data1.Recordset.MoveNext
>Loop
>//
>
>Hvad er der galt??
>
>En anden ting, er det ikke muligt at lave et databasekald med en
>sql-sætning?? Hvordan??
>
>
>/Trier
>
>


Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste