求助：请各位帮忙看看这个语句错在哪

主题：求助：请各位帮忙看看这个语句错在哪

jierainny [专家分：0] 发布于 2006-04-10 10:06:00

connect是一个被调用的数据库连接模块
  try connect.ADOConnection1.Open;
   connect.ADOConnection1.GetTableNames(TableList.Items);
   except
     showmessage('Sorry! Can not esbilished this connection!');
   try connect.DatabaseBDE.Open;
   connect.DatabaseBDE.GetTableNames(TableList.Items);
   except
     showmessage('Sorry! Can not esbilished this connection!');
调试后出现record,object,or class type requred这样的提示，是怎么回事啊

本帖地址： http://bbs.pfan.cn/post/155820.html

回复列表（共6个回复）

沙发

cilix [专家分：1030] 发布于 2006-04-10 12:53:00

adoconnection有open方法吗?好像没有吧?试试adoconnection.connected := True

板凳

jierainny [专家分：0] 发布于 2006-04-10 14:16:00

在connect模块里使用了 ADOConnection1.Open方法的，现在是为了判断是通过ADO来连接数据库还是BDE连接数据库。麻烦请再帮看看吧

3 楼

cilix [专家分：1030] 发布于 2006-04-10 14:49:00

有没有TableList := TStringList.Create这句,没有的话应该加
再就是try..except..end的END好像也没有,不过没有的话你也不能调试啊.

4 楼

jierainny [专家分：0] 发布于 2006-04-10 15:11:00

我把它改成了
   if connect.ADOConnection1.connected then
   begin
   connect.ADOConnection1.GetTableNames(TableList.Items);
   end
   else if connect.DatabaseBDE.connected then
   connect.DatabaseBDE.GetTableNames(TableList.Items);
加上这句，又有了一个Incompatible types: 'TListBox' and 'TStringList'的错误，怎么办呢

5 楼

cilix [专家分：1030] 发布于 2006-04-10 16:50:00

connect.ADOConnection1.GetTableNames(TableList);

6 楼

jierainny [专家分：0] 发布于 2006-04-11 09:20:00

谢谢了呵！

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：求助：请各位帮忙看看这个语句错在哪

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：求助：请各位帮忙看看这个语句错在哪

回复列表 （共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共6个回复）