That is Great OLAF!!!! That is all that I am looking for. I just want to be able to create new files, then create tables and populate them and do simple queries. If I can do that with your stuff, that would be amazing for me. I have had great great difficulty trying to find wrapper for VB6! Thanks once again. I will try it out, and if I run into problems i will email you.
Thanks once again. Pablopico > To: sqlite-users@sqlite.org > From: [EMAIL PROTECTED] > Date: Wed, 30 Apr 2008 03:17:30 +0000 > Subject: Re: [sqlite] Hello I am a newbie : for SQLite : Create db : VB6 > > palmer ristevski <[EMAIL PROTECTED]> writes: > > Hi Palmer, > > > I am new to this type of Forum.Here is my question : > > My development platform is VB6. I am using "SQLitePlus > > COM-DLL" from ez-tools.com.They have code to access > > and query an existing ".db" file, but I wish to know > > how to make a function call to create new SQLite > > database files on harddisk.How would you do this using > > VB6?What is the function call that you would have to make. > > I know how to do this with SQLite at the command > > line, and I could use VB6 to execute these commands > > at the command line, but I want a more direct way to create > > new database files.Hope someone can help me out. > > Sorry, no experience with the SQLitePlus-COM-wrapper > (maybe you should ask their technical support). > > In case you want to try out something, working > similar to "ADO/DAO-style"... > The following example is Code for my COM-wrapper, > which is available here: > www.datenhaus.de/Downloads/dhRichClientDemo.zip > It consists of three Binaries, placed in the > Public Domain: > dhRichClient.dll (COM-Dll - ADO-like WrapperClasses) > sqlite35_engine.dll (StdCall-Dll, based on SQLite 3.5.7) > DirectCOM.dll (Std-Dll, allows regfree COM-instancing) > > Small example how to use it, including the > creation of a new DB, in case the file doesn't > exists yet: > > Dim Cnn As cConnection, Cmd As cCommand, Rs As cRecordset > Dim i As Long, FileName As String > FileName = "c:\MyFile.db" > > Set Cnn = New cConnection 'create a Cnn-Object > > On Error Resume Next > Cnn.OpenDB FileName 'attempt, to open a DB-file > If Err Then 'DB-File doesn't exists... > Cnn.CreateNewDB FileName '...so we create one > End If > > 'Ok, let's create a table > Cnn.Execute "Create Table If Not Exists " & _ > "Tbl(ID Integer Primary Key, Txt Text)" > > 'now we insert a few records over a Command-Object > Set Cmd = Cnn.CreateCommand("Insert Into Tbl Values(?,?)") > For i = 1 To 5 > Cmd.SetText 2, "SomeText_" & i > Cmd.Execute > Next i > > 'and finally we request a Resultset... > Set Rs = Cnn.OpenRecordset("Select * From Tbl") > > Do Until Rs.EOF 'loop over it... > Debug.Print Rs!ID, Rs!Txt '...and print its contents > Rs.MoveNext > Loop > > > Olaf Schmidt > > > > _______________________________________________ > sqlite-users mailing list > sqlite-users@sqlite.org > http://sqlite.org:8080/cgi-bin/mailman/listinfo/sqlite-users _________________________________________________________________ Express yourself wherever you are. Mobilize! http://www.gowindowslive.com/Mobile/Landing/Messenger/Default.aspx?Locale=en-US?ocid=TAG_APRIL _______________________________________________ sqlite-users mailing list sqlite-users@sqlite.org http://sqlite.org:8080/cgi-bin/mailman/listinfo/sqlite-users