怎么用delphi7 编写数据库程序

在delphi中有一批数据库专用的控件，比如ADO类的，可以直接用于数据库开发，你可以先用一个Access数据库自己进行一下测试。

首先在窗体上放一个ADOConnection1控制，用于与Access数据库进行连接，连接字符串为：

ADOConnection1ADOC_DataConnectionString:='provider=MicrosoftJetOLEDB40;'

+'user ID=Admin;'

//+'Data Source='+ExtractFilePath(ApplicationExeName)+'MyRecordmdb;'

+'Data Source='+MyDataBaseName+';'

+'Mode=Share Deny None;Extended Properties="";'

+'Jet OLEDB:System database="";'

+'Jet OLEDB:Registry Path="";'

+'Jet OLEDB:Database Password="123456;' //数据库密码

+'Jet OLEDB:Engine Type=5;'

+'Jet OLEDB:Database Locking Mode=1;'

+'Jet OLEDB:Global Partial Bulk Ops=2;'

+'Jet OLEDB:Global Bulk Transactions=1;'

+'Jet OLEDB:New Database Password="";'

+'Jet OLEDB:Create System Database=False;'

+'Jet OLEDB:Encrypt Database=False;'

+'Jet OLEDB:Don'+''''+'t Copy Locale on Compact=False;'

+'Jet OLEDB:Compact Without Replica Repair=False;'

+'Jet OLEDB:SFP=False';

DMADOC_DataLoginPrompt:=False;

再放一个ADOQuery1控制，用于 *** 作数据表，将它的Connection属性设置为ADOConnection1。或用语句实现：ADOQuery1Connection:=ADOConnection1;

然后再分别放置一个DataSource1和一个DBGrid1控件，

将DataSource1的DataSet属性设置为ADOQuery1。

将DBGrid1的DataSource属性设置为DataSource1。

这时就可以通过ADOQuery1来执行SQL语句来查询数据表，并通过DBGrid1显示出来了。

1、安装好bde；

2、安装好Mdac；（此项应该是odbc驱动for MSSQLserver）

3、执行“windows的控制面板－－管理工具－－数据源（odbc）”，对MSSQLserver数据库建立相应的“系统DSN”；

4、执行bde配置程序，为上款的odbc数据源建立“alias别名”；

5、在delphi程序中 通过“别名”访问。

前提是你要设定好（本地或远程的）SQLserver数据库 ！

delphi 通过odbc连接sql server

一、数据库的准备

打开“开始／程序／Microsoft SQL Server/企业管理器”展开“控制台根目录”的目录，在标有“数据库”的目录项上点击右键，再点“新建数据库”，如“TEST”。再右键点击表，新建表，如“TABLE1”。

二、设置ODBC数据源

打开“开始／设置／控制面板／管理工具／数据源（ODBC）”，在“User DSN”下，点Add，选择“SQLServer”，完成，输入数据源名称，如“TEST-ODBC”和SQL Server服务器名称，后面一直点“下一步”到最后一页，再点“Test data source”检测设置是否正确。如果正确显示“tests completed successfully!”的信息。

三、设置数据引擎

打开“开始／程序／Borland Delphi7/BDE Administrator”，\在"Databases"页面下，可以看到，刚才设置的ODBC数据源“TEST-ODBC”，右键，选择“OPEN”，出现输入"user name"、"Password"的对话框，输入用户名Administrator及密码后点击“OK”使它有效。这时，如果连接正常，右侧的项目名称的字体变成粗体。注意：如要修改参数值，应先鼠标右键点击左侧的数据库名称，选择“Close”，在修改参数值后，用鼠标右键点击左侧的数据库名称，选择“Apply”保存，再选择“OPen”使新的参数值生效。

SQLConnection1Paramsclear

然后再添上你自己修改的值

SQLConnection1ParamsValues['ServerName'] := '1921680112';

SQLConnection1ParamsValues['Database'] := 'trackData';

SQLConnection1ParamsValues['User_Name'] := 'sa';

SQLConnection1ParamsValues['Password'] := '123456';

SQLConnection1Open;

用TADOConnection连接你所需要连接的Access，双击TADOConnection后点击build，提供程序选择“Microsoft Jet 40 OLE DB Provider”，下一步，选择你目录下的Access数据库文件，测试连接d出“测试连接成功”即可，一般会把TADOConnection属性的LoginPromit设为False，KeepConnection设为True，当然这个只是静态链接的，你也可以根据需要动态修改TADOConnection的ConnectionString即可。

然后用TADOQuery连接TADOConnection，TDataSource连接TADOQuery，表格连接TDataSource就差不多了，具体的你得看书中的基础用法。

procedure TForm1Button1Click(Sender: TObject);

var

rsTmp: TADOQuery;

begin

rsTmp:= TADOQueryCreate(nil);

try

try

rsTmpConnection:= Conn;

rsTmpParametersClear;

rsTmpSQLAdd:= 'Create DataBase 学生管理系统;';

rsTmpSQLAdd:= 'USE 学生管理系统;';

rsTmpSQLAdd:= 'Create Table 学生信息(姓名 nVarChar(10), 学号 nVarChar(30), 年龄 Int, 班级 nVarChar(20))';

rsTmpExecSQL;

except

On E: Exception do

begin

ShowMessage(eMessage);

end;

end;

finally

rsTmpFree;

end;

end;

极度小儿科的问题。告诉你最简单的办法:

1、设置ADOConnection1的ConnectionString属性，“选择或输入数据库名称”，选中数据库后，把编辑框里的数据库路径去掉就行了，例如“d:\datamdb”改成“datamdb”。最后点确定。

2、别告诉我你电脑上没有那个数据库，不然你怎么测试。

ServerNameStr:=connReadString('config','ServerName','');

ini文件中没有ServerName这项。

建议：连接数据库最好不要放在数据模块或窗体的Create事件中，这样容易引起其他问题。

以上就是关于怎么用delphi7 编写数据库程序全部的内容，包括:怎么用delphi7 编写数据库程序、完整的Delphi工程怎么连接到设置好的ODBC数据源 数据库是SQL server2000的、delphi7中怎样实现自动创建数据源并连接sql server数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！