急急急急急急急急急急急急急

[cxjbo]

在窗口中有一个ADO控件,绑定我自已的数据库(用JET4),记录类型选的adCmdText,SQL语句为select * from kehu 注（kehu为我自已数据库中的表）；一个DataGrid控件，绑定到ADO控件；一个按钮，按钮的代码为
Dim gsm As String
gsm = InputBox("请输入公司名", "输入框")
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from kehu where kehu.公司名＝" & gsm
Adodc2.Refresh
；在输入数据后执行出现对话框，对话框标题为ADODC2，内容为‘至少一个参数没有被指定值’，点确定按钮后又出现对话框内容为‘实时错误’-2147217904（80040e10）‘：对象’Refresh'的方法‘IAdodc'失败；下面有’结束‘，调试’，和‘帮助’三个按钮可选，点‘调试’后Adodc2.Refresh变成黄色？
我想问这是怎么回事？我的数据库是用Access2000做的，VB为企业版＋SP4，操作系统为WIN2000SERVER＋SP2。谢谢

转移贴子到 Visual C++ Visual Basic Delphi C/C++ C++ Builder ASM 数据库开发 PowerBuilder ActiveX/COM 数据算法 软件工程 图形/游戏/多媒体 安全技术 网络/通讯 技术书籍 文件格式 C# XML/SOAP 数据仓库 VBA 主页制作 图形处理 ASP PHP Perl Java Javascript JSP 嵌入式开发 .NET Framework lotus开发使用 ADO.NET ASP.NET Web Services Web Forms Windows Forms VB.NET VC.NET Windows 9x/ME Windows NT/2000/XP DOS Office使用 Office开发 Exchange server IIS 程序人生 软件市场 程序员考试 人才热线 建议和意见 灌水乐园 走向海外 程序员杂志 软件使用 资源使用 我看软件 寻找软件 行业软件 软件评测 Linux/Unix 硬件指南 程序员大本营 | 贴子加分 | 密码：

[xmao]

你确定datagrid已经绑定到adodc控件上了吗？
你这样
Dim gsm As String
dim sql as string
gsm = InputBox("请输入公司名", "输入框")
Adodc2.CommandType = adCmdText
sql="select * from kehu where kehu.公司名＝" & gsm
debug.print sql
Adodc2.RecordSource = sql
Adodc2.Refresh

如果还通不过，在debug里看一下sql的值..
把sql拿到数据库里执行一下。

[shkingstargroup]

Adodc2.RecordSource = "select * from kehu where kehu.公司名＝" & gsm
改成
Adodc2.RecordSource = "select * from kehu where kehu.公司名＝'" & gsm & "'"
试试！

[flyingshadow]

我昨天答过啊。
公司名是字符型嘛！！是吗？难道有人用数字作公司名？？
sql="select * from kehu where kehu.公司名＝'" & gsm & "'"