Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 3.25 » View Incident Report |
Serious |
Reported By: Vidya Sagar Reported On: 8/14/2003 For: Version 3.24 Build 1 |
Dim dbisam As Connection Dim constr As String Sub opensam() DBEngine.DefaultType = dbUseODBC constr = "ODBC;Driver={DBISAM Database System};CatalogName=" & App. Path Set dbisam = OpenConnection("", dbDriverNoPrompt, False, constr) End Sub Private Sub cmdexit_Click() Set dbisam = Nothing Unload Me End Sub Private Sub cmdinsert_Click() On Error Resume Next Dim rec As Recordset Set rec = dbisam.OpenRecordset("emp", dbOpenDynamic, dbExecDirect, dbOptimisticValue) With rec .AddNew !Name = Text1.Text !Desc = Text2.Text .Update End With MsgBox "record inserted" rec.Close End Sub Private Sub Form_Load() opensam End Sub
This web page was last updated on Tuesday, April 23, 2024 at 08:39 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |