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

[xzhy80]

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

这条语句做什么用的啊？
还有！做什么用的啊？

[xzhy80]

快来帮忙啊
我的qq：124546941
msn：[e-mail]
会的加我啊
有很多的问题请教啊

• 打赏
• 举报

回复 赞

[yiranoon]

ExecuteSQL需要你自己在模块中写的函数，不是vb中的。

• 打赏
• 举报

回复 赞

[yiranoon]

1。ExecuteSQL需要你自己在模块中写的函数，不是vb中的。他的用处就是打开数据库。因此你不用自己开
2。通常使用它不需要在窗口添加空件。

• 打赏
• 举报

回复 赞

[vbman2003]

你的问题都是基础知识，但对你而言，不是简单的帮忙就能让你明白你的问题，先看看书吧!

• 打赏
• 举报

回复 赞

[tangxiaosan001]

你还是看书吧，那个executesql是别人在模块下作的一个函数。

• 打赏
• 举报

回复 赞

[xzhy80]

是啊
我没学过vb
但毕业设计分到这个了
没办法的啊

• 打赏
• 举报

回复 赞

[lsftest]

呵呵，我想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

• 打赏
• 举报

回复 赞