Sorgu için arama sonuçları: adodb

...CBIL.BoundColumn = 2: CBILCE.BoundColumn = 2: CBSEMT.BoundColumn = 2: CBMAHALLE.BoundColumn = 2 Set adoCon = CreateObject("ADODB.Connection") strSQL = "SELECT IL_ADI, PLAKA FROM [İL$] WHERE NOT PLAKA IS NULL" If adoCon.State = 0 Then adoCon.Open...

Adodb kullanarak birkaç veriyi çekip tek hücrede birleştiriyorum fakat bu birleştirme sonrasında hücre içerisindeki bazı kelimeleri kalın yapmak istiyorum yazdığım kodun örneğini paylaştım burada hata var mı? Teşekkürler For Each hucre In analiste.Range("C1:C" & sonsatirc) If Not...

...Sub SorguAdet_hy_6_1() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.Clear '___________________________________________________________...

1- 2 puan o kadar önemli değil Hocam, sabrınız ve yardımalrınız için çok teşekkürler Sağ olun, var olun....

...9 Sub SorguAdet_hy_6() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.Clear '___________________________________________________________...

Çok teşekkür ederim Halil Hocam iyiki varsınız! şimdi benim bu alagoritmayı iyice bir içselleştirdikten sonra biraz geliştirmek istiyorum. Örnek: şimdiye kadar 2. alanı (x1, x2) kontrol ediyorduk, şimdi bana düşen aynı şekilde 3. alanı da (x3) buraya entegre etmek olacak Selamlar, Saygılar.

...Sub SorguAdet_hy_5_2() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.ClearContents...

Müsait olunca ilk fırsaata deneyeceğim Hocam Çok teşekkür ederim, emeğinize sağlık!

...)Sub SorguAdet_hy_5() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.ClearContents...

...Sub SorguAdet_hy3_1() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.ClearContents Con.Open "provider=microsoft.ace.oledb.12.0;data source="...

...bu kurala uygun sorgu nasıl düzenlebilir? Sub sorguu() Dim Con As Object Dim Sorgu As String Dim yol As String Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.ClearContents Con.Open "provider=microsoft.ace.oledb.12.0;data source="...

...Dim searchKeyword As String Dim rs As Object Dim baglan As Object ' Bağlantıyı açmak için Set baglan = CreateObject("ADODB.connection") baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Datalar.accdb" ' Text kutusundaki...

MERHABA BEN office365 kullanıyorum sanırım bu kodlar benim excel e uymuyor hocam uyarladım çalışmıyor zaten teşekkürler. bunun office365 e uyumlu olanı olsaydı denerdim.

...Dim X As Integer Dim No As String -------------------------------- Sub TCSorgula() On Error Resume Next Set My_Connection = CreateObject("AdoDb.Connection") Set My_Recordset = CreateObject("AdoDb.Recordset") My_Connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _...

bence bu çözüm güzel bir fikir teşekkür ederim. Userform1.txtQuantity.Value = Replace(CStr(rst!Miktar), ".", ",")

Set rst = New ADODB.Recordset SQL = "Select * From tbl_Orders" SQL = SQL & " Where Id= " & sId rst.Open SQL, cn, 1, 3 Userform1.txtQuantity.Value = Replace(CStr(rst!Miktar), ".", ",") veya Private Sub txtQuantity_Change() If InStr(1, txtQuantity, ".") > 0 Then txtQuantity.Value =...

...olayı ile çözmeye çalıştım ama çok içime sinmedi, yalnız bunun daha farklı ve daha profesyonel bir yolu olabilir mi? Set rst = New ADODB.Recordset SQL = "Select * From tbl_Orders" SQL = SQL & " Where Id= " & sId rst.Open SQL, cn, 1, 3 Userform1.txtQuantity.Value =...

...WB2 = "D:\SU SİRKÜLASYON.xlsm" Set WS = ThisWorkbook.Sheets("Sheet1") Set My_Connection = VBA.CreateObject("AdoDB.Connection") Set My_Recordset = VBA.CreateObject("AdoDB.Recordset") On Error GoTo ErrorHandler My_Connection.Open...

...= 1 Dim objXML As Object Dim objDocElem As Object Dim objStream As Object Set objStream = CreateObject("ADODB.Stream") objStream.Type = adTypeBinary objStream.Open objStream.LoadFromFile (strPicPath) ' XML Döküman nesnesi ve veriyi içerecek kök...

hocam çalıştı harikasınız ellerinize sağlık tuğkan hocam siz de çok sağolun yardımlarınız için minnettarım, yaklaşık parça parça olmak üzere 20.000 sayfa rapor inceleyeceğim 25-30 adet bir dizi kelimeyi bulup renklendirdiğimde inceleme işim çok kolaylaşacak kıymetli zamanlarını bana ayırıp...