杭州交通信息网哪款斗地主可以赢现金:关于VB问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 17:26:48
Private Sub Command1_Click()
Dim user As String, pwd As String
user = Text1
pwd = Text2
Dim r As New ADODB.Recordset
Set r = DataEnvironment1.rssqlseek 运行是错误：未找到方法或数据成员 为什么？
Dim strsql As String
Select Case mnusertype
Case 0:
strsql = "select*from 老师信息 where 姓名='" & Text1 & "'and 编号='" & Text2 & "'"
Case 1:
strsql = "select*from 学生信息 where 姓名='" & Text1 & "'and 学号='" & Text2 & "'"
End Select
On Error Resume Next
If r.State = adStateOpen Then
r.Close
r.Open strsql
Else
Load frmain
With frmain
.mnusertype = mnusertype
.msusername = pwd
.Show
End With
Unload Me
End If
我已经在工程里添加了一个 DataEnvironment1，建立了一个数据命令command 取名为sqlseek。
Dim user As String, pwd As String
user = Text1
pwd = Text2
Dim r As New ADODB.Recordset
Set r = DataEnvironment1.rssqlseek 运行是错误：未找到方法或数据成员 为什么？
Dim strsql As String
Select Case mnusertype
Case 0:
strsql = "select*from 老师信息 where 姓名='" & Text1 & "'and 编号='" & Text2 & "'"
Case 1:
strsql = "select*from 学生信息 where 姓名='" & Text1 & "'and 学号='" & Text2 & "'"
End Select
On Error Resume Next
If r.State = adStateOpen Then
r.Close
r.Open strsql
Else
Load frmain
With frmain
.mnusertype = mnusertype
.msusername = pwd
.Show
End With
Unload Me
End If
我已经在工程里添加了一个 DataEnvironment1，建立了一个数据命令command 取名为sqlseek。
Set r = DataEnvironment1.rssqlseek 在这程序中没有什么用呀?
另外在程序运行前rssqlseek要在数据环境器中指定在数据库中对于的表或是指定的SQL,不知你有没有指定.
有什么问题再联系吧
DataEnvironment1.rssqlseek
DataEnvironment1的rssqlseek 不好用吧