Delphi７ データベース接続

解決

AAA  2005-10-06 10:49:57  No: 17922  IP: 192.*.*.*

//**** データベース接続 ****
if (G_DBOpen(G_KpsysIni.DbUser, G_KpsysIni.DbPassword, G_KpsysIni.DbDatabase) <> RES_TRUE) then
begin
    Close;
    Exit;
end;

Delphi初心者です。データベースの接続方法がよくわかりません。
教えていただけますでしょうか？

編集 削除
とおりすがりの  2005-10-06 10:57:53  No: 17923  IP: 192.*.*.*

*.Connected:=true;

編集 削除
AAA  2005-10-06 11:05:51  No: 17924  IP: 192.*.*.*

回答ありがとうございます。
*.Connected:=true;はどの箇所に入れるのでしょうか？
SQLサーバーに接続したいのですが上記で可能でしょうか？

編集 削除
えーと  2005-10-06 11:17:36  No: 17925  IP: 192.*.*.*

> どの箇所に入れるのでしょうか？
G_DBOpenの中では？
（G_DBOpenが何なのか具体的に知りませんけど）

> SQLサーバーに接続したいのですが
BDEとかADOとか接続方式も分からず
SQLサーバーのバージョンも分からずでは答えようが無いですね。

編集 削除
AAA  2005-10-06 11:39:06  No: 17926  IP: 192.*.*.*

回答ありがとうございます。
G_DBOpenは、データベース接続の共通関数です。

SQLサーバーのバージョンは７です。
接続方式が分からないため、質問させていただきました。

編集 削除
Syake  2005-10-06 11:57:50  No: 17927  IP: 192.*.*.*

SQLServerなら迷わずADOでしょう。(と、勝手に決めておいて)
BDEは型によったら取得できないし・・・・

>G_DBOpen(G_KpsysIni.DbUser, G_KpsysIni.DbPassword, G_KpsysIni.DbDatabase)
あれ、サーバー名は？
以下、目くら打ちですが・・・
function *****.G_DBOPen(strUse,strPass,strDBname,strSaverName :String):Boolean;
begin
    ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;'
    + 'Password= + strPass 
                + ';Persist Security Info=True;User ID=' + strUse
                + ';Initial Catalog=' + strDBname
    + ';Data Source= ' + strSaverName;
    try
       ADOConnection1.Connected := True;
       Result := True;
    except
       Result := False;
    end;
end;
てな感じでいかが？

編集 削除
Syake  2005-10-06 12:00:36  No: 17928  IP: 192.*.*.*

すんません。
すでに間違ってるし
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;'
        + 'Password=' + strPass 
        + ';Persist Security Info=True;User ID=' + strUse
        + ';Initial Catalog=' + strDBname
        + ';Data Source= ' + strSaverName;

編集 削除
AAA  2005-10-06 12:02:33  No: 17929  IP: 192.*.*.*

解決しました。
ありがとうございました。

編集 削除