7451
社区成员
- 主页
各位给看一下！诸位大虾帮我快！！！！！！！！！
lixingyuaaa 2003-01-14 11:37:15 '我第一次输入一个人名时，如‘李明’，它可以显示出正确的报表，可是当我再输入一次人名时，它显示的还是刚才李明的报表，而不显示第二个人的报表。诸位大虾帮我快！！！
Private Sub Command1_Click()
Dim sqlsTr As String
Dim XingMing As String
XingMing = Trim(Text1.Text)
If XingMing = "" Then
MsgBox "请输入您的姓名"
Exit Sub
Else
SQL = "select * from dbo.user where='" & XingMing & "'"
End If
sqlsTr = "select * from dbo.jiaoxue_zongjie where 教师姓名='" & XingMing & "'"
DataEnvironment1.Commands("command1").CommandType = adCmdText
DataEnvironment1.Commands("command1").CommandText = sqlsTr
Set rep.DataSource = DataEnvironment1
rep.DataMember = "command1"
rep.Show
End Sub
Private Sub Command1_Click()
Dim sqlsTr As String
Dim XingMing As String
XingMing = Trim(Text1.Text)
If XingMing = "" Then
MsgBox "请输入您的姓名"
Exit Sub
Else
SQL = "select * from dbo.user where='" & XingMing & "'"
End If
sqlsTr = "select * from dbo.jiaoxue_zongjie where 教师姓名='" & XingMing & "'"
DataEnvironment1.Commands("command1").CommandType = adCmdText
DataEnvironment1.Commands("command1").CommandText = sqlsTr
Set rep.DataSource = DataEnvironment1
rep.DataMember = "command1"
rep.Show
End Sub
...全文
请发表友善的回复…
发表回复
twinking 2003-01-14
我觉得
REFRESH
这个语句
应该提前
先让COMMAND1有新的SQL TEXT
REFRESH
这个语句
应该提前
先让COMMAND1有新的SQL TEXT
lixingyuaaa 2003-01-14
帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我帮我
lixingyuaaa 2003-01-14
to zhenyukeji(何处是我家)
还是不行的
还是不行的
岁月无声-我心飞翔 2003-01-14
DataEnvironment1.Commands("command1").CommandType = adCmdText
DataEnvironment1.Commands("command1").CommandText = sqlsTr
Set rep.DataSource = DataEnvironment1
rep.DataMember = "command1"
rep.Refresh
rep.Show
DataEnvironment1.Commands("command1").CommandText = ''
Set rep.DataSource = Nothing
DataEnvironment1.Commands("command1").CommandText = sqlsTr
Set rep.DataSource = DataEnvironment1
rep.DataMember = "command1"
rep.Refresh
rep.Show
DataEnvironment1.Commands("command1").CommandText = ''
Set rep.DataSource = Nothing
lixingyuaaa 2003-01-14
请大家都来看看吧
请您了
我马上要交上去了
我肯拿分出来
请您了
我马上要交上去了
我肯拿分出来
lixingyuaaa 2003-01-14
我的那句
If XingMing = "" Then
MsgBox "请输入您的姓名"
Exit Sub
Else
SQL = "select * from dbo.user where='" & XingMing & "'"
End If
没有什么用的
If XingMing = "" Then
MsgBox "请输入您的姓名"
Exit Sub
Else
SQL = "select * from dbo.user where='" & XingMing & "'"
End If
没有什么用的
lixingyuaaa 2003-01-14
我综合了大家的意见改了一下
如下：
Private Sub Command1_Click()
Dim sqlsTr As String
Dim XingMing As String
XingMing = Trim(Text1.Text)
If XingMing = "" Then
MsgBox "请输入您的姓名"
Exit Sub
End If
sqlsTr = "select * from dbo.jiaoxue_zongjie where 教师姓名='" & XingMing & "'"
'sqlstr = "select * from dbo.jiaoxue_zongjie where 教师姓名='李兴禹'"
DataEnvironment1.Commands("command1").CommandType = adCmdText
DataEnvironment1.Commands("command1").CommandText = sqlsTr
Set rep.DataSource = DataEnvironment1
rep.DataMember = "command1"
rep.Show
rep.Refresh
Set rep.DataSource = Nothing
End Sub
可是还是不行啊
如下：
Private Sub Command1_Click()
Dim sqlsTr As String
Dim XingMing As String
XingMing = Trim(Text1.Text)
If XingMing = "" Then
MsgBox "请输入您的姓名"
Exit Sub
End If
sqlsTr = "select * from dbo.jiaoxue_zongjie where 教师姓名='" & XingMing & "'"
'sqlstr = "select * from dbo.jiaoxue_zongjie where 教师姓名='李兴禹'"
DataEnvironment1.Commands("command1").CommandType = adCmdText
DataEnvironment1.Commands("command1").CommandText = sqlsTr
Set rep.DataSource = DataEnvironment1
rep.DataMember = "command1"
rep.Show
rep.Refresh
Set rep.DataSource = Nothing
End Sub
可是还是不行啊
oo渣渣oo 2003-01-14
把数据环境Refresh一下
lixingyuaaa 2003-01-14
to： linfuyong(林子)
可以说得具体一点吗？
帮我改一下
我都懵了
可以说得具体一点吗？
帮我改一下
我都懵了
rushing 2003-01-14
SQL = "select * from dbo.user where 姓名='" & XingMing & "'"
linfuyong 2003-01-14
应该set一把
I_Iverson 2003-01-14
If 数据环境名.数据连接名.State <> 0 Then
数据环境名.数据连接名.Close
End If
If 数据环境名.数据连接名.State = 0 Then
数据环境名.数据连接名.Open
End If
这是我碰到此类问题时的处理代码。肯定可以的
数据环境名.数据连接名.Close
End If
If 数据环境名.数据连接名.State = 0 Then
数据环境名.数据连接名.Open
End If
这是我碰到此类问题时的处理代码。肯定可以的
lixingyuaaa 2003-01-14
谢谢诸位
明天给分吧
今天我要下了
明天给分吧
今天我要下了
holydiablo 2003-01-14
不过
如果直接用recordset得到新记录集，然后再赋给报表应该是最好的
如果直接用recordset得到新记录集，然后再赋给报表应该是最好的
wzn0521 2003-01-14
忘了写了，在endif下面写，DE.Connection.Open就可以了。
wzn0521 2003-01-14
if DE.Connection.State <> asStateClose then
DE.Connection.close
endif
之后在执行你写的，肯定可以。
DE.Connection.close
endif
之后在执行你写的，肯定可以。
zmcpu 2003-01-14
：
可以直接当作ado的数据集进行操作
DaEnvxkhd.Recordsets.Item(i).Source = "select * from xkhdxsl where x_year=" + Cmbnian.Text
DaEnvxkhd.Recordsets.Item(i).Open
DRepxkhd.Show vbModal
DaEnvxkhd.Recordsets.Item(i).CloseDaEnvxkhd.Recordsets.Item(i).Source = "select * from xkhdxsl where x_year=" + Cmbnian.Text
DaEnvxkhd.Recordsets.Item(i).Open
DRepxkhd.Show vbModal
DaEnvxkhd.Recordsets.Item(i).Close
可以直接当作ado的数据集进行操作
DaEnvxkhd.Recordsets.Item(i).Source = "select * from xkhdxsl where x_year=" + Cmbnian.Text
DaEnvxkhd.Recordsets.Item(i).Open
DRepxkhd.Show vbModal
DaEnvxkhd.Recordsets.Item(i).CloseDaEnvxkhd.Recordsets.Item(i).Source = "select * from xkhdxsl where x_year=" + Cmbnian.Text
DaEnvxkhd.Recordsets.Item(i).Open
DRepxkhd.Show vbModal
DaEnvxkhd.Recordsets.Item(i).Close
zmcpu 2003-01-14
Requery方法!
也可以直接使用ADODB.Recordset!不使用DataEnvironment!例:
...
public adoRecordsetX as ADODB.Recordset
...
Private Sub DataReport_Initialize()
adoRecordsetX.Requery
Set DataReport1.DataSource = adoRecordsetX '设置 DataReport 的数据源
...
'绑定某字段
Me.Sections.Item("Section1").Controls.Item("text1").DataField=adoRecordsetX.Fields.Item(0).Name
...
End Sub
也可以直接使用ADODB.Recordset!不使用DataEnvironment!例:
...
public adoRecordsetX as ADODB.Recordset
...
Private Sub DataReport_Initialize()
adoRecordsetX.Requery
Set DataReport1.DataSource = adoRecordsetX '设置 DataReport 的数据源
...
'绑定某字段
Me.Sections.Item("Section1").Controls.Item("text1").DataField=adoRecordsetX.Fields.Item(0).Name
...
End Sub
lixingyuaaa 2003-01-14
好像是有一些作用
但是出了一个毛病
这次我手动设的datasource和datamember在属性窗口中
可是出了一个毛病我输入了一个姓名但是结果为我以前的报表
就是我刚刚查过的一个报表
每次不管我输入什么结果都一样
我想我还是去死吧！
Private Sub Command1_Click()
Dim sqlsTr As String
Dim XingMing As String
XingMing = Trim(Text1.Text)
If XingMing = "" Then
MsgBox "请输入您的姓名"
Exit Sub
End If
sqlsTr = "select * from dbo.jiaoxue_zongjie where 教师姓名='" & XingMing & "'"
'sqlstr = "select * from dbo.jiaoxue_zongjie where 教师姓名='李兴禹'"
rep.Refresh
DataEnvironment1.Commands("command1").CommandType = adCmdText
DataEnvironment1.Commands("command1").CommandText = sqlsTr
rep.Show
Set rep.DataSource = Nothing
End Sub
但是出了一个毛病
这次我手动设的datasource和datamember在属性窗口中
可是出了一个毛病我输入了一个姓名但是结果为我以前的报表
就是我刚刚查过的一个报表
每次不管我输入什么结果都一样
我想我还是去死吧！
Private Sub Command1_Click()
Dim sqlsTr As String
Dim XingMing As String
XingMing = Trim(Text1.Text)
If XingMing = "" Then
MsgBox "请输入您的姓名"
Exit Sub
End If
sqlsTr = "select * from dbo.jiaoxue_zongjie where 教师姓名='" & XingMing & "'"
'sqlstr = "select * from dbo.jiaoxue_zongjie where 教师姓名='李兴禹'"
rep.Refresh
DataEnvironment1.Commands("command1").CommandType = adCmdText
DataEnvironment1.Commands("command1").CommandText = sqlsTr
rep.Show
Set rep.DataSource = Nothing
End Sub