DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strConn As String, sorgu as string
Private Sub CommandButton4_Click()
Call sil
Set cnt = New ADODB.Connection
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE='buraya SQL SERVER YOLUNUZU YAZIN(IP si daha iyi olur) tırnakları kaldırın';INITIAL CATALOG='database adını buraya yazın';"
strConn = strConn & " INTEGRATED SECURITY=sspi;"
cnt.Open strConn
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = cnt
sorgu = "select * from tablonuzun_ismini_buraya yazın"
.Open sorgu
Sayfa2.Range("A2").CopyFromRecordset rst
.Close
End With
cnt.Close
Set rst = Nothing
Set cnt = Nothing
End Sub
'burayı bir module kaydedin
Sub sil()
Dim say As Integer
say = Application.CountA(Sheets("sayfa2").Columns("A"))
For i = 1 To say
Sheets("sayfa2").Rows("1:" & i).Delete
Next i
End Sub