Dim Records
Dim Database

dim Recs

AddObject "newObjects.sqlite3.dbutf8", "Db"

set Database = Db

'Open the database
On Error resume next
If DataBase.Open(Get_Database_Name) Then 
   DataBase.AutoType = True
   DataBase.TypeInfoLevel = 4
Else
  MsgBox "ERROR ON OPEN OF DATABASE: " & DataBase.lastError
  Bye
End If
On Error Goto 0

On Error resume next
Set Records= Database.Execute("Select * from tablea")
On Error Goto 0

Recs = 1        
While Recs <= Records.Count
      DoEvents
      blah balh
      Recs = Recs + 1
wend

Set Records = Nothing
        
DataBase.Close
        
Set DataBase = Nothing

--- On Fri, 10/3/08, Steven Charest <[EMAIL PROTECTED]> wrote:

> From: Steven Charest <[EMAIL PROTECTED]>
> Subject: [sqlite] Visual Basic Programming to SQlite
> To: sqlite-users@sqlite.org
> Date: Friday, October 3, 2008, 7:53 PM
> I am a Visual Basic programmer who would like to port the
> Access Database
> over to SQlite.  Is there any documentation on how to use
> this database with
> Visual Basic?  I am difficulty finding any documentation on
> it.
> 
>  
> 
> Thanks
> 
>  
> 
>  
> 
>  
> 
> _______________________________________________
> sqlite-users mailing list
> sqlite-users@sqlite.org
> http://sqlite.org:8080/cgi-bin/mailman/listinfo/sqlite-users
_______________________________________________
sqlite-users mailing list
sqlite-users@sqlite.org
http://sqlite.org:8080/cgi-bin/mailman/listinfo/sqlite-users

Reply via email to