[Amin_Mansouri]

این اولیش
اینم سورسش:

کد:

Option Explicit

Private Sub Command1_Click()
Dim dbConn As ADODB.Connection
Dim Cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim strWName As String
Dim intCount As Long

On Error GoTo ExitME
Err.Clear
Set dbConn = New ADODB.Connection
With dbConn
    .Provider = "OraOLEDB.Oracle"
    .Properties("Data Source") = "ROWELLS"
    .Properties("User Id") = "wellsadmin"
    .Properties("Password") = "roweisgood"
    .Open
End With

Set Cmd = New ADODB.Command
Set Cmd.ActiveConnection = dbConn
With Cmd
    .Parameters.Append .CreateParameter(, adVarChar, adParamOutput, 50)
    .Parameters.Append .CreateParameter(, adNumeric, adParamOutput)
End With

If dbConn.State Then
    Cmd.Properties("PLSQLRSet") = True
    Cmd.CommandType = adCmdText
    Cmd.CommandText = "{CALL WellsAdmin.WellCounting(?, ?)}"
    Set rs = Cmd.Execute()
End If
If Not rs Is Nothing Then
    Dim i As Long
    i = 0
    
    If Not rs.BOF And Not rs.EOF Then
        Do Until rs.EOF
            i = i + 1
            If i > 1 Then
                Me.MSHFlexGrid1.Rows = Me.MSHFlexGrid1.Rows + 1
            End If
            Me.MSHFlexGrid1.TextMatrix(i, 0) = rs.Fields(0).Value
            Me.MSHFlexGrid1.TextMatrix(i, 1) = rs.Fields(1).Value
            rs.MoveNext
        Loop
    End If
End If
ExitME:
If Not Cmd Is Nothing Then
    Set Cmd = Nothing
End If
If Not dbConn Is Nothing Then
    If dbConn.State Then dbConn.Close
    Set dbConn = Nothing
End If

End Sub

Private Sub Command2_Click()
Dim dbConn As ADODB.Connection
Dim Cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim lngWellID As Long

lngWellID = InputBox("WellID Number for results:", "Well ID")


On Error GoTo ExitME
Err.Clear
Set dbConn = New ADODB.Connection
With dbConn
    .Provider = "OraOLEDB.Oracle"
    .Properties("Data Source") = "ROWELLS"
    .Properties("User Id") = "wellsadmin"
    .Properties("Password") = "roweisgood"
    .Open
End With

Set Cmd = New ADODB.Command
Set Cmd.ActiveConnection = dbConn
With Cmd
    .Parameters.Append .CreateParameter(, adNumeric, adParamInput, , lngWellID)
    .Parameters.Append .CreateParameter(, adVarChar, adParamOutput, 50)
    .Parameters.Append .CreateParameter(, adNumeric, adParamOutput)
End With

If dbConn.State Then
    Cmd.Properties("PLSQLRSet") = True
    Cmd.CommandType = adCmdText
    Cmd.CommandText = "{CALL WellsAdmin.OneWellCount(?,?, ?)}"
    Set rs = Cmd.Execute()
End If
If Not rs Is Nothing Then
    
    If Not rs.BOF And Not rs.EOF Then
        Do Until rs.EOF
            MsgBox "Well Name: " & rs.Fields(0).Value & vbCrLf & "Number of Results: " & rs.Fields(1).Value & vbCrLf & "Well ID Entered: " & lngWellID
            rs.MoveNext
        Loop
        rs.Close
        Set rs = Nothing
    End If
End If

ExitME:
If Not Cmd Is Nothing Then
    Set Cmd = Nothing
End If
If Not dbConn Is Nothing Then
    If dbConn.State Then dbConn.Close
    Set dbConn = Nothing
End If


End Sub

Private Sub Form_Load()

Me.MSHFlexGrid1.TextMatrix(0, 0) = "Well Name"
Me.MSHFlexGrid1.TextMatrix(0, 1) = "Number of results"

Me.MSHFlexGrid1.ColWidth(0) = Len(Me.MSHFlexGrid1.TextMatrix(0, 0)) * 100
Me.MSHFlexGrid1.ColWidth(1) = Len(Me.MSHFlexGrid1.TextMatrix(0, 1)) * 100

End Sub

حالشو ببر اینم پروژه
http://www.vb6.us/files/tutorials/OracleExample.zip