if i make an access database from scratch using vb6 code, can i distribute it with my application for free?
Code:Dim objDBE, objADO Const dbVersion10 = 1 Const dbVersion11 = 8 Const dbVersion20 = 16 Const dbVersion30 = 32 Const dbVersion40 = 64 Set objDBE = CreateObject("DAO.DBEngine.36") objDBE.CreateDatabase App.Path & "\DragAndDrop1.mdb", ";LANGID=0x0409;CP=1252;COUNTRY=0", dbVersion40 Set objDBE = Nothing Set objADO = CreateObject("ADODB.Connection") objADO.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DragAndDrop1.mdb") objADO.Execute ("Create Table retailer(EasyFindLetter text(10), stock number, product_description text(255), upc text(50), cs_qty text(100), retailer_stock_number text(255), retailer_price Currency)") objADO.Close Set objADO = Nothing




Reply With Quote