Arkadaşlar merhaba,
Aşağıdaki kodu forumlardan buldum fakat bende dim lere kızıyor nerde yanlış yapıyorum acaba?
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strConn As String, sorgu As String
Private Sub Workbook_Open()
Set cnt = New ADODB.Connection
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=127.0.0.1;INITIAL CATALOG=dbnakliye;"
strConn = strConn & " INTEGRATED SECURITY=sspi;"
cnt.Open strConn
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = cnt
sorgu = "select title from tblcari"
.Open sorgu
Sayfa2.Range("A2").CopyFromRecordset rst
.Close
End With
cnt.Close
Set rst = Nothing
Set cnt = Nothing
End Sub
End Sub
aslında yapmak istediğim sql de dosyayı açıp verileri bir hücreye yazdırmak istiyorum
Aşağıdaki kodu forumlardan buldum fakat bende dim lere kızıyor nerde yanlış yapıyorum acaba?
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strConn As String, sorgu As String
Private Sub Workbook_Open()
Set cnt = New ADODB.Connection
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=127.0.0.1;INITIAL CATALOG=dbnakliye;"
strConn = strConn & " INTEGRATED SECURITY=sspi;"
cnt.Open strConn
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = cnt
sorgu = "select title from tblcari"
.Open sorgu
Sayfa2.Range("A2").CopyFromRecordset rst
.Close
End With
cnt.Close
Set rst = Nothing
Set cnt = Nothing
End Sub
End Sub
aslında yapmak istediğim sql de dosyayı açıp verileri bir hücreye yazdırmak istiyorum