Verileri Direk ListViewe Nasıl Alırım.

[Orion1]

Hocam şöyle bir durum var arama yaparken i-ş-ü gibi harfleri aramıyor

Sanırım veritabanınız Türkçe karakter setine göre ayarlanmamış.
O kaakterlerin yerine ? karakterini kullanarak deneyin.
Yine olmuyorsa
Dış veri al kullanarak veri alın.Sorgu yaparken ş harfini kullanın.
Eğer listeleeme yapıyorsa,ayni işlemi bu sferde makro kaydet ile yapn.
ve kaydettiğiniz kodları yollayın bakayım bir.

 

[unalh]

? Bu şekilde arama yaptım fakat sonuç vermiyor.

Dış veri alda sorgu yaparken ş harfi kullanın derken bunu tam anlayamadım ama ben verileri aldım ve kaydettim kayıt yapılan macro'yu da gönderiyorum

Aldığım dosyda ekte.





Sub Makro1()
'
' Makro1 Makro
'

'
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
"OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=....;Data Source=.....;Use Procedure for Prepare=1;Auto Translate=True;Pa" _
, _
"cket Size=4096;Workstation ID=......;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog" _
, "=............"), Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdTable
.CommandText = Array("""........."".""dbo"".""TBLCASABIT""")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
"C:\Documents and Settings\Muhypcc\Belgelerim\Veri Kaynaklarım\......................... TBLCASABIT.odc"
.ListObject.DisplayName = "Tablo_............_................_TBLCASABIT"
.Refresh BackgroundQuery:=False
End With
End Sub

 

[Orion1]

Şunu demek istedim.
Dış veri al ile verileri alırkende ayni sorun varmı?

? Bu şekilde arama yaptım fakat sonuç vermiyor.

Dış veri alda sorgu yaparken ş harfi kullanın derken bunu tam anlayamadım ama ben verileri aldım ve kaydettim kayıt yapılan macro'yu da gönderiyorum

Aldığım dosyda ekte.





Sub Makro1()
'
' Makro1 Makro
'

'
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
"OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=....;Data Source=.....;Use Procedure for Prepare=1;Auto Translate=True;Pa" _
, _
"cket Size=4096;Workstation ID=......;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog" _
, "=............"), Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdTable
.CommandText = Array("""........."".""dbo"".""TBLCASABIT""")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
"C:\Documents and Settings\Muhypcc\Belgelerim\Veri Kaynaklarım\......................... TBLCASABIT.odc"
.ListObject.DisplayName = "Tablo_............_................_TBLCASABIT"
.Refresh BackgroundQuery:=False
End With
End Sub

 

[unalh]

Hocam dosyayı gönderdim 22 nolu mesajda.
Karekterleri bozuk alıyor.
Macro kaydet yöntemi ile kayıt yapmıştım bu kodlarda 22 nolu mesajımda.

Hocam
Dış veri al ile alırken Translate=True - Translate=False yapınca düzeliyor.

 

[Orion1]

İlgili cümlenizi aşağıdaki gibi yaparak deneyin.

Sub veri_getir()
Dim SqlText As String
Dim conn, rs As Object
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
ListView1.ListItems.Clear
 'With conn
    '.Provider = "sqloledb"
    '.CommandTimeout = 120
    '.ConnectionString = "Data Source=.......;USER ID=........;PASSWORD=.......;AUTO TRANSLATE=FALSE"
    '.Open
    '.DefaultDatabase = "..........."
   ' End With
   conn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=....;Data Source=.....;Use Procedure for Prepare=1;Auto Translate=false;Pa" _
, _
"cket Size=4096;Workstation ID=......;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog" _
, "=............"

    SqlText = "SELECT *"

 

[unalh]

Hocam kod bu şekliyle çalışmadı hata verdi.