Delphi７データベース接続

解決

AAA 2005-10-06 19:49:57 No: 17922

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

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

とおりすがりの 2005-10-06 19:57:53 No: 17923

*.Connected:=true;

AAA 2005-10-06 20:05:51 No: 17924

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

えーと 2005-10-06 20:17:36 No: 17925

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

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

AAA 2005-10-06 20:39:06 No: 17926

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

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

Syake 2005-10-06 20:57:50 No: 17927

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 21:00:36 No: 17928

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

AAA 2005-10-06 21:02:33 No: 17929

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

Delphi７ データベース接続

Delphi７データベース接続