Private Sub Command1_Click()
Dim sCName, sCWork, sCAdd, sCFrom As String
sCName = Text1.Text
sCWork = Text2.Text
sCAdd = Text3.Text
sCFrom = Text4.Text
Adodc1.RecordSource = "exec spclientinfo '" & sCName & "','" & sCWork & "','" & sCAdd & "','" & sCFrom & "'"

Adodc1.Refresh
DataGrid1.ClearFields
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns(0).Caption = "客人序号"
DataGrid1.Columns(1).Caption = "姓名"
DataGrid1.Columns(2).Caption = "性别"
Dim df As New StdDataFormat
df.Type = fmtBooleans
df.FalseValue = "女"
df.TrueValue = "男"

Set DataGrid1.Columns(2).DataFormat = df
DataGrid1.Columns(3).Caption = "年龄"
DataGrid1.Columns(4).Caption = "身份证号码"
DataGrid1.Columns(5).Caption = "家庭地址"
DataGrid1.Columns(6).Caption = "工作单位"
DataGrid1.Columns(7).Caption = "来自何地"
DataGrid1.Columns(8).Caption = "入住时间"
DataGrid1.Columns(9).Caption = "预住天数"
DataGrid1.Columns(10).Caption = "客房号"
DataGrid1.Columns(11).Caption = "离店时间"
DataGrid1.Columns(12).Caption = "押金金额"
DataGrid1.Columns(13).Caption = "住宿费"
DataGrid1.Refresh


End Sub
为什么我的DataGrid1里面没有数据阿，数据库的数据不显示呢

大家帮我啊

Adodc1.RecordSource = "select * from tblClient where cName like '%sCName%' and cWork like '%sCWork%'"
在vb里这个查询语句有错误么

SQL语句错是没有错，不过%scName%是字符串和你的text1还有那个sCName没有关系哦

已经解决了，但是为什么，我生成的exe在其他机子上不能用阿，说少了ado.ocx，是ado组件的问题么

要把ado.ocx也拷过去,然后regsvr32 ado.ocx

从那拷阿

搜索下你的电脑……就知道了……

哦

。。。。。生成执行程序时要把有关的东西全放在一起打包吧！！这样在那部机都能用，好像是这样的，我也是新手呵！！