zoukankan      html  css  js  c++  java
  • DelPhi连接数据库方式

    一、SQL Server 2000 的连接数据库
    1.无密码连接
    SQLL:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=192.168.0.23';                                      //catalog 指数据库名称 datasource 指 计算机名称,也
    Data.ADOCnn.ConnectionString:=SQLL;        //可以是ip地址
    Data.ADOCnn.Connected:=false;
    Data.ADOCnn.LoginPrompt:=false;
    try
       Data.ADOCnn.Connected:=true;
    except                                          //连接失败处理
        begin
         MessageBox(0,'连接数据库失败!','提示',64);
         Application.Terminate;
        end;
    end;
    2.有密码连接 (密码为123)
       SQLL:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PassWord=123;Initial Catalog=test;Data Source=192.168.0.23'; 

    二、Access 数据库的连接
    1.无密码,决对路径连接
    AdoConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= '
                                            + OpenDialog1.FileName; //绝对路径,这里是用打开文件的路径
          AdoConnection1.LoginPrompt := False;
          AdoConnection1.Connected := True;

    2. 有密码,相对路径连接
    pwd:='123';
    SQLL:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
             extractfilepath(application.ExeName)+'db1.mdb'+
             ';Persist Security Info=False;Jet OLEDB:Database Password="'+pwd+'"';
    Form1.ADOConn.Connected:=false;
    Form1.ADOConn.LoginPrompt:=false;
    Form1.ADOConn.ConnectionString:=SQLL;
    try
        Form1.ADOConn.Connected:=true;                 //连接数据库
    except
        begin
         MessageBox(0,'连接数据库失败!','提示',64);
         Application.Terminate;
    end;
    end;
    三、选择数据库连接(access)
    procedure TFormMainWindow.FormCreate(Sender: TObject);
    begin
    FTableList := TStringList.Create;
    end;

    //按钮点击事件

    OpenDialog1.Filter := '数据库文件(*.*)';
    if OpenDialog1.Execute then
    begin
        try
          if AdoConnection1.Connected then AdoConnection1.Connected := False;
          AdoConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= '
                                            + OpenDialog1.FileName;
          AdoConnection1.LoginPrompt := False;
          AdoConnection1.Connected := True;
          AdoConnection1.GetTableNames(FTableList);           //FTableList : Tstings
          CboTables.Items := FTableList;                                 //CboTables:combobox
  • 相关阅读:
    used内存较大,实际top查看系统进程中并没有占用这么多内存
    查看LINUX进程内存占用情况
    关于ConcurrentHashMap的key和value不能为null的深层次原因
    Linux修改用户所在组方法
    原因可能是托管的PInvoke签名与非托管的目标签名不匹配
    vs2019 实现C#调用c++的dll两种方法
    java jvm 参数 -Xms -Xmx -Xmn -Xss 调优总结
    java 读取文件的几种方式和通过url获取文件
    Idea中Maven的默认配置 (非常好)
    去哪儿网models数据更新
  • 原文地址:https://www.cnblogs.com/weihengblogs/p/3200400.html
Copyright © 2011-2022 走看看