View Single Post
  #2 (permalink)  
Old 06-15-2008, 09:41 AM
giannimaione's Avatar
giannimaione giannimaione is offline
Senior Member
 
Join Date: Apr 2007
Location: Naples, Italy
Posts: 156
Send a message via Skype™ to giannimaione
Awards Showcase
Beta Tester 
Total Awards: 1
Default

This is my little help
Code:
Form1.Show
AddTable ("Form1", "TableView", 30, 30, 200, 200)
Con.New1    
Cmd.New1("",con.Value)
Con.Open("Data Source = " & AppPath & "\Northwind.sl3")    
cmd.CommandText="CREATE TABLE if not exists table1 (col1,col2)"
cmd.ExecuteNonQuery
cmd.AddParameter("value1")
cmd.AddParameter("value2")    
cmd.CommandText = "INSERT INTO [table1] (col1,col2) VALUES (@value1,@value2)"
Con.BeginTransaction
cmd.SetParameter("value2","SomeValue")
For i = 0 To 10
      cmd.SetParameter("value1",i)
      cmd.ExecuteNonQuery
Next
Con.EndTransaction
cmd.CommandText="select * from table1"
cmd.ExecuteTable("TableView",0)
Con.Close
cmd.Dispose
Con.Dispose
__________________
Gianni Maione
Reply With Quote