Private Sub CommandButton1_Click

[Mehmet Sait]

1.

Private Sub CommandButton1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SqlText As String
With conn
.Provider = "sqloledb"
.CommandTimeout = 120
.ConnectionString = "Data Source=" & Sheet1.Cells(4, 5).Value & ";USER ID=" & Sheet1.Cells(8, 5).Value & ";PASSWORD=" & Sheet1.Cells(10, 5).Value & ";AUTO TRANSLATE=FALSE"
.Open
.DefaultDatabase = Sheet2.ComboBox1.Text
End With
SqlText = "SELECT A.CARI_KOD,B.CARI_ISIM,"
SqlText = SqlText + " BORC = SUM(CASE WHEN A.BORC>0 THEN A.BORC ELSE 0 END),"
--------------------------------------------------------------------------------------------------

2.


Private Sub CommandButton1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SqlText As String
With conn
.Provider = "sqloledb"
.CommandTimeout = 120
.ConnectionString = "Data Source=" & Sheet1.Cells(4, 5).Value & ";USER ID=" & Sheet1.Cells(8, 5).Value & ";PASSWORD=" & Sheet1.Cells(10, 5).Value & ";AUTO TRANSLATE=FALSE"
.Open
.DefaultDatabase = Sheet9.ComboBox1.Text
End With
kasa_devir
SqlText = " SELECT TARIH,IO,"
SqlText = SqlText + " ACIKLAMA,CARI_MUH,KOD,"

Merhabalar,

Farklı iki SQL cümlesini tek ( Private Sub CommandButton1_Click ) a nasıl bağlayabilirim ?

 

[Murat OSMA]

Deneyiniz...

Private Sub CommandButton1_Click()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim SqlText As String
    
    With conn
        .Provider = "sqloledb"
        .CommandTimeout = 120
        .ConnectionString = "Data Source=" & Sheet1.Cells(4, 5).Value & ";USER ID=" & _
        Sheet1.Cells(8, 5).Value & ";PASSWORD=" & Sheet1.Cells(10, 5).Value & ";AUTO TRANSLATE=FALSE"
        .Open
        .DefaultDatabase = Sheet2.ComboBox1.Text
    End With
    kasa_devir
    SqlText = "SELECT TARİH,IO,A.CARI_KOD,B.CARI_ISIM,ACIKLAMA,CARI,MUH,KOD,"
    SqlText = SqlText + " BORC = SUM(CASE WHEN A.BORC>0 THEN A.BORC ELSE 0 END),"
End Sub