高手问题 用 adocon.GetTableNames(Ckb.Items, false)可以得到数据库里的所有用户表但表的显示格式是XM,XB但实际上我希望他能连用户都显示出来,如A.XM,B.XBA,B为用户,各位有什么好方法吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你用的是什么数据库?如果是Oracle是自动加上去的 haoco(程序员) ( 你用GetTableNames如果是它自己加上去的,算你狠摆脱搞懂问题先sixgj(轰炸机) 你也一样 你可以重载TADOConnection的GetTableNames方法也可以用下面这个,我在SQL Server里测试没问题procedure TForm1.GetTableNames(Conn: TAdoConnection; List: TStrings; SystemTables: Boolean);var OwnerField, TypeField, NameField: TField; TableType: string; DataSet: TADODataSet;begin DataSet := TADODataSet.Create(nil); try Conn.OpenSchema(siTables, EmptyParam, EmptyParam, DataSet); OwnerField := DataSet.FieldByName('TABLE_SCHEMA'); TypeField := DataSet.FieldByName('TABLE_TYPE'); NameField := DataSet.FieldByName('TABLE_NAME'); List.BeginUpdate; try List.Clear; while not DataSet.EOF do begin TableType := TypeField.AsString; if (TableType = 'TABLE') or (TableType = 'VIEW') or (SystemTables and (TableType = 'SYSTEM TABLE')) then List.Add(OwnerField.AsString + '.' + NameField.AsString); DataSet.Next; end; finally List.EndUpdate; end; finally DataSet.Free; end;end; 什么是回调函数 好久没来,低调散分 加载类型库/DLL出错 编写server 端问题,请高手帮忙!!!分不够再加! 有哪位仁兄知道怎么读写.db文件 请问各位,如果我向存储过程里传递了一个字段名称的参数,应该如何使用?急急急急急! 用query.open大概3万多数据,很慢的,有什么好的方法? 如何POP3邮件的收取? 急! 请各位高手多多指教 如何设置3秒执行一次循环? Rewrite(var F: File [; Recsize: Word ] ); 请教各位~
如果是Oracle是自动加上去的
你用GetTableNames如果是它自己加上去的,算你狠
摆脱搞懂问题先sixgj(轰炸机)
你也一样
SystemTables: Boolean);
var
OwnerField, TypeField, NameField: TField;
TableType: string;
DataSet: TADODataSet;
begin
DataSet := TADODataSet.Create(nil);
try
Conn.OpenSchema(siTables, EmptyParam, EmptyParam, DataSet);
OwnerField := DataSet.FieldByName('TABLE_SCHEMA');
TypeField := DataSet.FieldByName('TABLE_TYPE');
NameField := DataSet.FieldByName('TABLE_NAME');
List.BeginUpdate;
try
List.Clear;
while not DataSet.EOF do
begin
TableType := TypeField.AsString;
if (TableType = 'TABLE') or (TableType = 'VIEW') or
(SystemTables and (TableType = 'SYSTEM TABLE')) then
List.Add(OwnerField.AsString + '.' + NameField.AsString);
DataSet.Next;
end;
finally
List.EndUpdate;
end;
finally
DataSet.Free;
end;
end;