(12/05/2021, 15:46)berduş yazdı: recordsetle denemek isterseniz aşağıdaki kodu deneyebilirsiniz.
Not: referanslara ADO eklenmeli
'hy____________________________AçılırKutu_Deneme
Dim Sql As String
Dim ADO_RS As ADODB.Recordset
Dim ADO_CN As ADODB.Connection
SQL = "SELECT [F1] " & _
"FROM [Ana_Sayfa$C2:C] " & _
"WHERE ([F1]<>"""") " & _
"ORDER BY [F1];"
Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection
ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & _
";extended properties=""excel 8.0;hdr=No"""
ADO_CN.Open
ADO_RS.Open SQL, ADO_CN, 3, 1
If ADO_RS.RecordCount = 0 Then GoTo son
ADO_RS.MoveLast
ADO_RS.MoveFirst
ComboBox_FirmaUnvani.Column = ADO_RS.GetRows
son:
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing
'hy_____________________________________________Bitti
Application.AutoCorrect.AutoExpandListRange = True
IlleriAktar
TextBox_Tarih = Format(Date, "dd.mm.yyyy")
With TextBox_Tarih
.SelStart = 0
.SelLength = .TextLength
End With
@
berduş hocam office365 kullanıyorum bende resimdeki 2 referans dışında ADO yazan başka bir referans yok. Bu arada şimdi kayıt girmek istedim çok hızlı kaydettiğim veriler eskiye göre bayağı yavaşladı ben tam konuya yazacaktım sizin yorumunuz geldi.
(12/05/2021, 16:10)berduş yazdı: hocam modülün başına
Option Compare Text
eklenmeliydi unutmuşum
Adoda buna gerek yok abey 2003 versiyonlarından sonra Ace.oledb ile yapıncaki denedim zaten öalıştı küçük büyük harfa duyarlılığı.
(12/05/2021, 16:06)Oğuz Türkyılmaz yazdı: (12/05/2021, 15:46)berduş yazdı: recordsetle denemek isterseniz aşağıdaki kodu deneyebilirsiniz.
Not: referanslara ADO eklenmeli
'hy____________________________AçılırKutu_Deneme
Dim Sql As String
Dim ADO_RS As ADODB.Recordset
Dim ADO_CN As ADODB.Connection
SQL = "SELECT [F1] " & _
"FROM [Ana_Sayfa$C2:C] " & _
"WHERE ([F1]<>"""") " & _
"ORDER BY [F1];"
Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection
ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & _
";extended properties=""excel 8.0;hdr=No"""
ADO_CN.Open
ADO_RS.Open SQL, ADO_CN, 3, 1
If ADO_RS.RecordCount = 0 Then GoTo son
ADO_RS.MoveLast
ADO_RS.MoveFirst
ComboBox_FirmaUnvani.Column = ADO_RS.GetRows
son:
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing
'hy_____________________________________________Bitti
Application.AutoCorrect.AutoExpandListRange = True
IlleriAktar
TextBox_Tarih = Format(Date, "dd.mm.yyyy")
With TextBox_Tarih
.SelStart = 0
.SelLength = .TextLength
End With
@berduş hocam office365 kullanıyorum bende resimdeki 2 referans dışında ADO yazan başka bir referans yok. Bu arada şimdi kayıt girmek istedim çok hızlı kaydettiğim veriler eskiye göre bayağı yavaşladı ben tam konuya yazacaktım sizin yorumunuz geldi.
(12/05/2021, 15:46)berduş yazdı: WHERE ([F1]<>"""")
WHERE ([F1]<>' ' olarakta kısaltılıyor abey bu şekilde.
ADO dan kast ettiğim; microsoft
Activex
Data
Objects x.x
bu ado olan için değildi zaten diğer fonksiyonlu olan içindi
Hocam bende yüklü olan referanslar bunlar burda hangisini seçmem gerekiyor 64 bit office365 için.
@
feraz hocam bazen çok ufak ayrıntılara takılıyorsunuz)
"" bu yada bu
' ne fark eder?