ADO Remote Database Connection

zHugeCode7

Hi
I have a MS Access database on remote server and I have a remote ODBC DSN (Data Source Name) on the server.
I want to connect to my database by ADO connection component, but i cant.
Please tell me, how i can do it.
Thank you

MWJK

Hi,

why cant you connect it? do you need the source code, or what do you need?
Please explain your problem.

Greatings
MWJK

zHugeCode7

Hi,
I make a MS Access database and a ODBC DSN on server (for example: www.myserver.com) by my site control panel,
now i want to connect to my remote database by ADO connection component (TADOConnection) using BCB or Delphi.
I think that, i need a proper OLE DB Provider for remoting connection by ADO but in my OLE DB Provider list does not exist any proper provider.
I think that Microsoft OLE DB Remoting Provider is a proper provider but i dont have it.
Maybe, i need a source code example!

MWJK

Hi,

void __fastcall TForm1::DataSource1DataChange(TObject *Sender,
      TField *Field)
{
   Edit1->Text=ADOTable1->FieldByName("Name")->AsString;
   Edit2->Text=ADOTable1->FieldByName("Surname")->AsString;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ADOTable1->Next();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   ADOTable1->Prior();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
   ADOTable1->First();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
   ADOTable1->Last();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
   ADOTable1->Insert();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
   ADOTable1->Delete();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
   ADOTable1->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
   ADOTable1->FieldByName("Name")->AsString = Edit1->Text;
   ADOTable1->Post();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
   Edit1->Text = ADOTable1->FieldByName("Name")->AsString;
   Edit2->Text = ADOTable1->FieldByName("Surname")->AsString;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
   ADOTable1->FieldByName("Surname")->AsString = Edit2->Text;
   ADOTable1->Post();
}
//---------------------------------------------------------------------------

This is a source code example to work with a MS Access Database connected to a BCB project - but both (the database and the programm) are saved on the same PC in the same Folder.

I hope that can help you!

Greatings
MWJK

zHugeCode7

Hi,
Thank you very much, really.
Your source code example is about Data Entry and is Stand-alone not Client-Server.
May you introduce a good BCB or Delphi forum in english language?
Thanks

Jansen

http://newsgroups.borland.com/cgi-bin/dnewsweb?cmd=listall&group=borland.public.

zHugeCode7

Thank you