VERSION 5.00
Begin VB.Form frmMain
Caption = "Remote SQL Query Example"
ClientHeight = 6465
ClientLeft = 60
ClientTop = 450
ClientWidth = 9870
LinkTopic = "Form1"
ScaleHeight = 6465
ScaleWidth = 9870
StartUpPosition = 3 'Windows Default
Begin VB.TextBox txtQuery
Height = 285
Left = 840
TabIndex = 6
Text = "select * from your-table"
Top = 1440
Width = 4575
End
Begin VB.ListBox lstResponse
Height = 3570
Left = 240
TabIndex = 4
Top = 2640
Width = 9255
End
Begin VB.CommandButton cmdGetQuery
Caption = "Get Query"
Height = 495
Left = 7920
TabIndex = 3
ToolTipText = "Send a query and retrieve results"
Top = 1320
Width = 1455
End
Begin VB.CommandButton cmdSendQuery
Caption = "Send Query"
Height = 495
Left = 7920
TabIndex = 2
ToolTipText = "Execute a query without retrieving results"
Top = 480
Width = 1455
End
Begin VB.TextBox txtAddr
Height = 285
Left = 840
TabIndex = 0
Text = "http://www.your-domain.net/sql-link.php"
Top = 600
Width = 4575
End
Begin VB.Label Label3
Caption = "Your Query"
Height = 255
Left = 840
TabIndex = 7
Top = 1200
Width = 1335
End
Begin VB.Label Label2
Caption = "Reponse:"
Height = 255
Left = 240
TabIndex = 5
Top = 2400
Width = 2175
End
Begin VB.Label Label1
Caption = "HTTP Address of sql-link.php"
Height = 255
Left = 840
TabIndex = 1
Top = 360
Width = 2295
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************
'Example usage of getquery and sendquery functions
'****************************************************************
Private Sub cmdGetQuery_Click()
On Error GoTo handler
lstResponse.Clear
Dim resp() As String
Dim row As Collection
Dim strLine As String
Dim i As Integer
Dim x As Integer
'use getquery for queries with result sets
'like SELECT queries
resp = getQuery(txtQuery, txtAddr)
For x = 0 To UBound(resp, 1)
strLine = vbNullString
For i = 0 To UBound(resp, 2)
strLine = strLine & resp(x, i) & " - "
Next i
lstResponse.AddItem (strLine)
Next x
Exit Sub
handler:
If Err.Number <> 9 Then MsgBox "Error: " & Err.Description
End Sub
Private Sub cmdSendQuery_Click()
lstResponse.Clear
'use sendquery for queries with out result sets
'like update or insert queries
Call sendQuery(txtQuery, txtAddr)
End Sub
|
Download
