First commit 18/11/2001

MySQL_ADO.cpp

@@ -0,0 +1,51 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+
+#include "MySQL_ADO.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma link "mySQLDbTables"
+#pragma resource "*.dfm"
+TForm1 *Form1;
+//---------------------------------------------------------------------------
+__fastcall TForm1::TForm1(TComponent* Owner)
+        : TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------
+
+
+void __fastcall TForm1::ADOTable1RecordChangeComplete(
+      TCustomADODataSet *DataSet, const TEventReason Reason,
+      const int RecordCount, const Error *Error, TEventStatus &EventStatus)
+{
+/*
+  if ( Reason == erAddNew )
+   ADOTable1->Refresh();
+*/
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TForm1::Button1Click(TObject *Sender)
+{
+ ADOTable1->Refresh();
+/*
+ADOTable1->Insert();
+ADOTable1->FieldByName("name")->AsString = "JODERING";
+ADOTable1->Post();
+*/
+
+}
+//---------------------------------------------------------------------------
+
+
+void __fastcall TForm1::Button2Click(TObject *Sender)
+{
+// Query1->Refresh();        
+}
+//---------------------------------------------------------------------------
+
+
+