Anasayfa > Kodlar > Visual Basic 6 ile IBM AS400 Query’lerinin çalıştırılması

Visual Basic 6 ile IBM AS400 Query’lerinin çalıştırılması

Visual Basic ile IBM AS400 sistemi üzerindeki Queryleri çalıştırmaya ne dersiniz?

Private Sub Command1_Click()
On Error Resume Next

Dim rc As Long
Dim mySystem As Object
Dim myRmtCmd As Object
Dim errorObject As Object
Dim selectionIndex As Long
Dim systemName As String
Dim libraryName As String
Dim queueName As String
Dim errorcount As Long
Dim errorText As String

Screen.MousePointer = 11

selectionIndex = Form1.SystemListBox.CurrentSel ' Form üzerine client access ile birlikte gelen SYSTEMLISTBOX koyunuz.
If (selectionIndex <> -1) Then
systemName = Form1.SystemListBox.GetItemText(selectionIndex)
End If

Set mySystem = CreateObject("cwbremotecallconversation")
Set myRmtCmd = CreateObject("cwbCommand")
Set errorObject = CreateObject("cwberrormessage")

Call errorObject.cwbsvSetup
rc = mySystem.cwbrcStartConversation(systemName, "")

If (rc <> cwbOK) Then
MsgBox (rc) 'bir hata oluşursa burada gösterecek.
Else
rc = myRmtCmd.cwbrcRunCmd(mySystem, "RUNQRY " + "BARIS" + "/" + "PFPSFAT", errorObject) ' ADI BARIS OLAN KITAPLIK ALTINDAKİ PFPSFAT İSİMLİ QUERY ÇALIŞIR. BU BÖLÜMÜ SİZ KENDİNİZE GÖRE DEĞİŞTİRİN.
Screen.MousePointer = 0

If (rc <> cwbOK) Then
errorcount = errorObject.errorcount
If (errorcount <> 0) Then
For X = 1 To errorcount
Call errorObject.cwbsvGetErrTextIndexed(X, errorText) ' bir hata oluşursa burada gösterecek
MsgBox (errorText)
Next X
Else
MsgBox (rc)
End If
Else
End If
End If
Screen.MousePointer = 0
END SUB


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: