数据库的连接

Question

我想通过窗体来连接oracle数据库
比如,服务器:SWDB,数据库名称:DBSM 密码:123
我想通过窗体的编辑框输入服务器,数据库,密码信息,然后按钮进行数据库的连接.
请各位delphi高手帮帮忙.
谢谢!

Answer 1

数据库的连接用ADO控件.
谢谢!

Answer 2

 类似这样就行了，把字符串传过去就OK!
'Provider=Microsoft.Jet.OLEDB.4.0;'
      + 'Password=' + Password + ';User ID=' + User + ';'
      + 'Data Source=' + DBName + ';'
      + 'Jet OLEDB:System Database=' +DB

Answer 3

Const
    ADOString='Provider=Provider=MSDAORA.1;Password=%s;User ID=%s;Data Source=%s''''';
...........    Password:=Edit1.Text;  //用户
    User:=Edit2.Text;      //密码:123 
    DBPath:=Edit3.Text;  //服务器:SWDB
    ADOConnection1.ConnectionString:=Format(AdoString,[Password,User,DBPath]);
    ADOConnection1.LoginPrompt:=false;
    ADOConnection1.Connected:=true;

Answer 4

//***************************************************//
//功能：连接远程sql数据库与本地oracle数据库          //
//***************************************************//
procedure TForm1.Connect_DB;
var
  s_Conn1 :String;
  s_Conn2 :String;
 
begin
  {s_Conn1 := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;';
  s_Conn1 := s_Conn1 + 'User ID=' + is_Useid1 + ';';
  s_Conn1 := s_Conn1 + 'Initial Catalog=' + is_DB + ';';
  s_Conn1 := s_Conn1 + 'Data Source=' + is_DS; }  //如果sql数据库中有设有sa用户及密码，则用以下连接字符串
  s_Conn1 := 'Provider=SQLOLEDB.1;Persist Security Info=True;';
  s_Conn1 := s_Conn1 + 'User ID=' + is_Useid1 + ';';
  if Length(is_Pass1) > 0 then
    s_Conn1 := s_Conn1 + 'Password =' + is_pass1 + ';';
  s_Conn1 := s_Conn1 + 'Initial Catalog=' + is_DB + ';';
  s_Conn1 := s_Conn1 + 'Data Source=' + is_DS;
  try
    with ADOConnection1 do
    begin
      Connected := False;
      ConnectionString := '';
      ConnectionString := s_Conn1;
      Connected := True;
    end
  except
  
  end;

Answer 5

麻烦看我的代码错在哪儿了，麻烦指点下！
谢谢！
procedure TForm2.Button1Click(Sender: TObject);
begin
if edit1.Text='' or edit2.Text='' then
begin
showmessage('请正确填写参数信息！');
exit;
end;
adoconnection1.Close;
try
adoconnection1.ConnectionString:='Provider=Provider=MSDAORA.1;Password=%s;User   ID=%s;Data   Source=%s'''''';'//设置用户
 Password:=Edit3.Text;     //用户
 User:=Edit2.Text;             //密码:123
 DBPath:=Edit1.Text;     //服务器:SWDB
 ADOConnection1.ConnectionString:=Format(AdoString,[Password,User,DBPath]);
 ADOConnection1.LoginPrompt:=false;
 ADOConnection1.Connected:=true;
 showmessage('连接成功！');except
  showmessage('连接失败！');
end;

Answer 6

adoconnection1.ConnectionString:='Provider=MSDAORA.1;Password=%s;User       ID=%s;Data       Source=%s';//应是这样子,之前写错了.