当前位置:首页 » 编程语言 » delphisql

delphisql

发布时间: 2022-07-22 16:49:20

㈠ Delphi如何与sql数据库连接

connstr:='Provider=SQLOLEDB.1;Password=<sql
的用户ID的登录密码>;Persist
Security
Info=True;User
ID=<sql
的用户ID>;Initial
Catalog=<数据库名称>;Data
Source=<sql
服务器名称或IP地址>‘;
ADO下的ADOConnection控件
ADOConnection1.connectstring:=connstr;
Adoquery1.connect

ADOConnection1
Adoquery1.sql.clear;
Adoquery1.sql.add('select
*
from
表名
');
Adoquery1.open;

㈡ 怎样去delphi来连接SQL数据库

呵呵,,其实这个时候你的AdoQuery已经有相应的值了,你可以循环取出来,循环插入到第二张表中即可!
var
str,t1,t2,t3:String;
AdoQuery1.First;
while
not
(AdoQuery1.eof)
do
begin
t1:=AdoQuery1.fields[0].AsString;
t2:=AdoQuery1.fields[1].AsString;
t3:=AdoQuery1.fields[2].AsString;
sql:='insert
into
job(wo_id)
values'''+t1+'''';
AdoQuery2.sql.text:=sql;
AdoQuery2.ExecSQL;
Adoquery1.Next;
end;
注意一点的是Adoquery1的Fields属性中的值是按照它执行的sql来说的
Select
TA001,TA002,TA006
From
MOCTA
这里的话
Fields[0].AsString
就是TA001的值,以此类推。。

㈢ delphi 中如何调用sql 存储过程

使用TADOStoredProc组件,可以,给你举个例子好了

with ADOStoredProc1 do
begin
Close;
Parameters.Clear;
ProcereName:='SaveDate_dbzsm'; //存储过程名称
Parameters.CreateParameter('v_wlid', ftString, pdInput, 20, fgUnassigned);//传入参数(数字代表长度)
Parameters.CreateParameter('v_ddid', ftString, pdInput, 20,fgUnassigned); //传入参数
Parameters.CreateParameter('v_tm', ftString, pdInput, 500,fgUnassigned); //传入参数
Parameters.CreateParameter('v_returnstr', ftString, pdoutput, 30,fgUnassigned); //返回值
//为参数赋值
Parameters[0].Value :=trim(edit1.text);
Parameters[1].Value := trim(edit2.text);
Parameters[2].Value := trim(edit2.text);
Parameters[3].Value := ' ';

ExecProc;
reuturn:= Trim(Parameters.ParamByName('v_returnstr').Value);
end;
reuturn就是返回值,你可以放到stringgrid 里面。

也可以用adoquery 连接存储过程。

with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('exec SaveDate_dbzsm :wlid,:ddid,:tm,:returnstr output');
Parameters.ParamByName('wlid').Value :=trim(edit1.text);
Parameters.ParamByName('ddid').Value :=trim(edit2.text);
Parameters.ParamByName('tm').Value := trim(edit3.text);
Parameters.ParamByName('returnstr').Value := ' ';
Open;
reuturn:= Parameters.ParamByName('returnstr').Value;
end;

http://..com/question/316727588.html

㈣ 如何在DELPHI中连接SQL

d7中bde、ado、dbexpress都提供了query组件。就用它操作sql。该组件有个sql属性,可直接写sql语句,如:select
*
from
xdb。还有一个params属性,可以动态赋值,实现动态处理。再添加一个datasource组件,使之dataset属性指向以上query组件,就可以访问“sql的表”(虽然这么说不确切)。以adoquery为例:
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select
*
from
xdb');
adoquery1.SQL.Add('where
bm='科技处');
adoquery1.Open;
datasource1.DataSet:=adoquery1;
dbgrid1.DataSource:=datasource1;
dbgrid1.Refresh;
通过以上方法就把xdb中bm字段为科技处的记录全在dbgrid1中列出来了。

㈤ delphi 中sql语句的字符串怎么使用和处理

在 delphi 语言中编写 SQL 语句的字符串,除去 SQL 语法方面,在引号的处理上需要格外注意,如常见的 Select 语句:

select姓名fromdb_usewhere编号='123456'

如果在 delphi 里编写,则需要考虑到单引号的问题,通常的解决办法如下:

1、如果数据库支持双引号,则可以使用双引号代替:

str:='select姓名fromdb_usewhere编号="123456"';

2、如果不支持双引号或使用不便,由于在 delphi 里,用两个单引号来代表实际的单引号,因此,代码如下:

str:='select姓名fromdb_usewhere编号=''123456''';

3、可以使用专门的单引号函数来处理:

str:='select姓名fromdb_usewhere编号='+QuotedStr('123456');

㈥ delphi中写SQL语句

sSQL:='Insert into goods(Qname,QPrice,QLuJin,QQiDing,QYuanJia,QMemo,QTime) values ('''
+sQname+''','''+sQPrice+''','''
+'QuPic\'+edt1.Text+'.jpg'+''','''
+EDT4.Text+''','''+Edt5.Text+''','''
+mmo1.Text+''','''+sQTime+''')';
qry1.SQL.add(sSQL);
qry1.ExecSQL;
qry1.Close;

㈦ 用delphi做的程序如何连接SQL数据库应该怎么操作

新建模块单元、添加ADOconnection控件,双击该控件,点击build,选择for
sql。。。

㈧ delphi怎么连接到数据库sql

你应该先看看BDE和ODBC。一般可以用BDE联接很方便。
你倒是可以用database
desktop建一些.db
的文件试试。这样在BDE
Administrator
里面就可以直接建一个standard的数据源。
做几回普通的,SQL你一般就能会了。

㈨ Delphi 中sql语句问题

如果传的是字符串:最好用quotedstr(s)
还有就是很明显的错误,delphi中‘’之间有‘的话用’‘’表示
假定你的字段均为字符串:sql:='insert
into
manualsign(Rfidno,ComeTime,Address,NewRecord)
values('+quotedstr('1')+','+quotedstr('1')+','+quotedstr('1')+','+quotedstr('1')+')';

㈩ delphi中的SQL语句

你可以先执行更新的然后判断一下影响行数如果为0就再执行插入的,
代码大概是这样的
adocommand1.Close;
adocommand1.CommandText:=' update 库存库 set 库存数量=库存数量+'+input.stringgrid1.Cells[3,i]+',库存金额=库存金额+'+input.stringgrid1.Cells[5,i]+' where 货号='+stringgrid1.Cells[1,i]+' ';
if adocommand1.Execute=0 then
begin
adocommand1.Close;
adocommand1.CommandText:= 'insert into 库存库([货号],[库存数量],[库存单价],[库存金额]) values('''+stringgrid1.Cells[1,i]+''','''+input.stringgrid1.Cells[3,i]+''','''+input.stringgrid1.Cells[4,i]+''','''+input.stringgrid1.Cells[5,i]+''')' ;
adocommand1.Execute;
end;

热点内容
linux磁盘占用 发布:2025-02-25 02:08:19 浏览:635
苹果和安卓蓝牙如何传音乐 发布:2025-02-25 02:03:04 浏览:209
安卓手机如何测充电次数 发布:2025-02-25 02:01:45 浏览:730
大橙子服务器IP 发布:2025-02-25 02:00:46 浏览:669
kalilinux密码 发布:2025-02-25 01:55:57 浏览:284
linux生效环境变量 发布:2025-02-25 01:55:17 浏览:791
dnf攻击算法 发布:2025-02-25 01:55:07 浏览:341
如何申请出国访问学者 发布:2025-02-25 01:53:39 浏览:1001
伪原创算法 发布:2025-02-25 01:49:52 浏览:708
途达21款会改善哪些配置 发布:2025-02-25 01:47:35 浏览:103