\n
Sub veridoldur()\r\n\r\nMe.ListBox1.Clear\r\n\r\nDim cnn As ADODB.Connection\r\nDim rs1 As ADODB.Recordset\r\nDim rs2 As ADODB.Recordset\r\nDim arr() As Variant\r\nDim satir As Long\r\nDim j As Integer\r\nDim cnnstr As String\r\n\r\nSet cnn = New ADODB.Connection\r\nSet rs1 = New ADODB.Recordset\r\nSet rs2 = New ADODB.Recordset\r\ncnnstr = \"Provider=SQLOLEDB;Data Source=........;Initial Catalog=......;User ID=......;Password=.....;\"\r\n\r\ncnn.Open cnnstr\r\nrs2.Open \"select count(ID) from \u0130hracatFirmalar\", cnn\r\nsatir = CInt(rs2.GetString)\r\nrs2.Close\r\nrs1.Open \"select * from \u0130hracatFirmalar\", cnn\r\n\r\nMe.ListBox1.ColumnCount = 9\r\nListBox1.ColumnWidths = \"0;200;200;200;100;100;30;30;30\"\r\n\r\nReDim arr(satir - 1, 8)\r\n\r\nDo While Not rs1.EOF\r\nFor i = 0 To rs1.Fields.Count - 1\r\narr(j, i) = rs1.Fields(i).Value\r\nNext\r\nrs1.MoveNext\r\nj = j + 1\r\nLoop\r\nrs1.Close\r\n\r\nMe.ListBox1.List = arr\r\n\r\nMe.TextBox1 = \"\"\r\n\r\nEnd Sub<\/pre>\n<\/div>\nKolay gele…<\/p>\n","protected":false},"excerpt":{"rendered":"
Sub veridoldur() Me.ListBox1.Clear Dim cnn As ADODB.Connection Dim rs1 As ADODB.Recordset Dim rs2 As ADODB.Recordset Dim arr() As Variant Dim satir As Long Dim j As Integer Dim cnnstr…<\/p>\n
Devam\u0131n\u0131 OkuVBA ADODB.Recordset Nesnesinden Listbox\u2019a Dizi Arac\u0131l\u0131\u011f\u0131yla Veri Doldurma (\u00c7oklu Kolon)<\/span><\/a><\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"iawp_total_views":5,"footnotes":""},"categories":[5],"tags":[19,18],"class_list":["post-67","post","type-post","status-publish","format-standard","hentry","category-excel-vba","tag-adodb","tag-listbox","excerpt"],"_links":{"self":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/67","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=67"}],"version-history":[{"count":1,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/67\/revisions"}],"predecessor-version":[{"id":68,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=\/wp\/v2\/posts\/67\/revisions\/68"}],"wp:attachment":[{"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=67"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=67"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.cuneytbayrak.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=67"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}