zw_admin — 2011-12-18 05:31:59

In an a attempt to answer to my own question I added a reference to MicroSoft DAO 3.6 Object Library (Menu,Tools,References...). The following code copies an empty MSACCESS database file to a new location, opens a text file and adds the contents of the text file to a table in the new database file. code: Private Sub CommandButton2_Click() Dim wksObj As Workspace Dim dbsObj As Database Dim rstObj As Recordset Dim dbsObj1 As Database FileCopy "e:'John'AU-JHL1'AU-JHL2.mdb", "e:'John'AU-JHL1'temp.mdb" Set dbsObj = DBEngine.Workspaces(0).OpenDatabase("e:'John'AU-JHL1'temp.mdb") Set rstObj = dbsObj.OpenRecordset("tblcoorsJHL2", dbOpenTable) Dim retCoord, v, v1 As Variant CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|CSV Files (*.csv)|*.csv" ' Specify default filter. CommonDialog1.FilterIndex = 2 CommonDialog1.DialogTitle = "Open Points File" ' Display the Open dialog box. CommonDialog1.ShowOpen ' Call the open file procedure. FileName$ = CommonDialog1.FileName If Trim(FileName$) = "" Then Exit Sub End If Open FileName$ For Input As #1 'separated by commas Do Input #1, ya$ Input #1, xa$ Input #1, za$ If OptionButtonAddMinus Then za$ = Str(Val(za$) * -1) End If rstObj.AddNew rstObj!yxdata = Val(ya$) * 100 rstObj!xxdata = Val(xa$) * 100 rstObj!zxdata = Val(za$) * 100 rstObj.Update Loop Until EOF(1) rstObj.Close dbsObj.Close Set dbsObj = Nothing Set rstObj = Nothing Close UserForm1.Hide ZoomExtents UserForm1.Show End Sub

zw_admin — 2011-12-18 04:33:31

Hello I need to connect to MsACCESS databases from ZWCAD 2012. On page 362 of "Mastering ZWCAD I found the following: You should purchase independent developed version of Visual Basic 6 providing ZWCAD VBA with extra components, such as external database engine and report forms compiling function. I need a description of how to proceed. We have original VB 6.0 CDs. Thank you John

vba external database connectivity