做毕业设计遇到了难题,快进来帮忙啊!!!!

xzhy80 2004-05-04 12:48:34
txtsql = "select * from main where maindate = # " & Format(Date, "yyyy-mm-dd") & " # and mainsd=" & Login_Time

Set mrc = ExecuteSQL(txtsql, msgtext)
谁能给解释一下ExecuteSQL这个命令,还有我用这个命令的时候用不用把数据库打开的啊?
都要在窗口添加什么控件啊?
求各位高手帮忙啊!

Dim mrc As ADODB.Recordset
Temp_MainId = mrc!mainid '其中mainid是表中的一个属性,前面的是一个string变量

这条语句做什么用的啊?
还有!做什么用的啊?
...全文
19 7 点赞 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lsftest 2004-05-04
呵呵,我想ExecuteSQL的功能大致应该是这样的:

Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset
'executes SQL and returns Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String

On Error GoTo ExecuteSQL_Error

sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
" query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, _
adOpenKeyset, _
adLockOptimistic
'rst.MoveLast 'get RecordCount
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & _
" 条记录 "
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function

ExecuteSQL_Error:
MsgString = "查询错误: " & _
Err.Description
Resume ExecuteSQL_Exit
End Function
  • 打赏
  • 举报
回复
xzhy80 2004-05-04
是啊
我没学过vb
但毕业设计分到这个了
没办法的啊
  • 打赏
  • 举报
回复
tangxiaosan001 2004-05-04
你还是看书吧,那个executesql是别人在模块下作的一个函数。
  • 打赏
  • 举报
回复
vbman2003 2004-05-04
你的问题都是基础知识,但对你而言,不是简单的帮忙就能让你明白你的问题,先看看书吧!
  • 打赏
  • 举报
回复
yiranoon 2004-05-04
1。ExecuteSQL需要你自己在模块中写的函数,不是vb中的。他的用处就是打开数据库。因此你不用自己开
2。通常使用它不需要在窗口添加空件。
  • 打赏
  • 举报
回复
yiranoon 2004-05-04
ExecuteSQL需要你自己在模块中写的函数,不是vb中的。
  • 打赏
  • 举报
回复
xzhy80 2004-05-04
快来帮忙啊
我的qq:124546941
msn:xzhy80@hotmail.com
会的加我啊
有很多的问题请教啊
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库(包含打印,安装,报表)
加入

1191

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-05-04 12:48
社区公告
暂无公告