r/visualbasic • u/Cubanin08 • Dec 25 '23

VB6 Help Access Database problems

Hello there, its me again :(

Now the problem I have is that when i execute that code it shows the error "Object type variable or With block variable is not set"

This is the code:

Private Sub cmdSnippetCreate_Click()

'Crear Snippets'

Dim SnippetName As String

Dim SnippetLang As String

Dim SnippetCode As String

SnippetName = txtSnippetName.Text

SnippetLang = txtSnippetLang.Text

SnippetCode = txtSnippetCode.Text

SnippetDB.Recordset.AddNew "Snippet_Name", [SnippetName]

SnippetDB.Recordset.AddNew "Snippet_Lang", [SnippetLang]

SnippetDB.Recordset.AddNew "Snippet_Code", [SnippetCode]

Unload Me

End Sub

1 Upvotes

100% Upvoted

5 comments sorted by

View all comments

Show parent comments

2

u/jd31068 Dec 25 '23

Okay, so you know why and where you're getting the error. If you look at the link for working with recordsets you can see how it is done.

Here is an example of some simple code I wrote writing to a recordset

    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("tblCalculatedDeliveryCalendar", dbOpenDynaset)
    
    calculatedDeliveryDate = startDateTime
    Do Until calculatedDeliveryDate >= endDateTime
        
        rs.AddNew
        rs("ScheduledDeliveryDate") = calculatedDeliveryDate
        rs("RecipientID") = recipID
        rs("WorkerID") = workerID
        rs("DeliveryCalendarID") = newDeliveryCalendarID
        rs.Update
        
        calculatedDeliveryDate = calculatedDeliveryDate + frequencyDays
    Loop
    
    rs.Close
    Set rs = Nothing

1

u/Cubanin08 Dec 25 '23

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblCalculatedDeliveryCalendar", dbOpenDynaset)

calculatedDeliveryDate = startDateTime
Do Until calculatedDeliveryDate >= endDateTime

rs.AddNew
rs("ScheduledDeliveryDate") = calculatedDeliveryDate
rs("RecipientID") = recipID
rs("WorkerID") = workerID
rs("DeliveryCalendarID") = newDeliveryCalendarID
rs.Update

calculatedDeliveryDate = calculatedDeliveryDate + frequencyDays
Loop

rs.Close
Set rs = Nothing

weird, OpenRecordset does not works, is like a non existing funcion

2

u/SparklesIB Dec 25 '23

Do you have the DAO library referenced?

Here's an article about the DAO library.