module1.bas

基于VB6的组合查询系统的开发

Attribute VB_Name = "Module1"
Public strCn As String
Public CancelQuery As Boolean
Function GetQuerySQL(ByVal sRS As String) As String
   Dim cn As Connection
   Dim rs As Recordset
   Dim i As Integer
   Set cn = New Connection: Set rs = New Recordset
   On Error GoTo errHandle
   cn.CursorLocation = adUseClient: cn.Open strCn
   rs.Open sRS, cn, adOpenDynamic, adLockReadOnly
   With frmQuery.lstFields
        .Clear
        For i = 0 To rs.Fields.Count - 1
            .AddItem rs.Fields(i).Name
        Next
   End With
   frmQuery.Show 1
   Set rs = Nothing: Set cn = Nothing
   GetQuerySQL = frmQuery.txtWhere.Text:
   Unload frmQuery
   Exit Function
errHandle:
   MsgBox "系统出错！", vbExclamation, "警告"
End Function