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

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变量

这条语句做什么用的啊?
还有!做什么用的啊?
...全文
46 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
会的加我啊
有很多的问题请教啊

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧