ifix从sqlserver里读数据_IFIX读取SQL数据库

Private Sub cmdreport_Click()

If Me.TextBox1.Text = "" Then

MsgBox "

请输入批号

"

Exit Sub

End If

'-------------------------------------------------------------------------------------------------------

Dim blShow As Boolean

' Dim conODBC As ADODB.Connection

'Dim adoRS As ADODB.Recordset

'Set conODBC = New ADODB.Connection

' Set adoRS = New ADODB.Recordset

' Dim strQuery As String

' conODBC.ConnectionString = "Provider = Microsoft OLE DB Provider for ODBC Drivers;" & _

'

"DSN=shxy1;UID=sa;PWD=sa;"

' conODBC.Open "shxy1", "sa", "sa"

'

以下是按批次查询

'strQuery

=

"select

*

from

shxy1_batch

wher