Public Sub sqlext(ByVal strsqlstmt As String) '执行数据库操作 Dim cmd As New ADODB.Command connect Set cmd.ActiveConnection = cnn cmd.CommandText = strsqlstmt cmd.Execute Set cmd = Nothing disconnect End Sub Public Function queryext(ByVal strsqlstmt As String) As ADODB.Recordset '执行数据库查询 Dim rst As New ADODB.Recordset connect Set rst.ActiveConnection = cnn rst.CursorType = adOpenDynamic rst.LockType = adLockOptimistic rst.Open strsqlstmt Set queryext = rst End Function
麻烦各位了你最起码得把变量strsqlstmt 的值给出来，才能帮你看什么原因。。。 没带参数吧！。。。。。。。。。。。。。。。。。。。。。。。 这段代码我是根据书上的 rst.open strsqlstmt上面只写着打开记录集 只知道ByVal strsqlstmt As String 而且strsqlstmt只出现在Public Sub sqlext(ByVal strsqlstmt As String)和Public Function queryext(ByVal strsqlstmt As String) As ADODB.Recordset这两个里面 那该如何定义strsqlstmt变量 试试
我在类中有一个函数 Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？ dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
