Private Sub UserForm_Activate() Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim cnnstr As String Set cnn = New ADODB.Connection Set rs = New ADODB.Recordset cnnstr = "Provider=SQLOLEDB;Data Source=........;Initial Catalog=.......;User ID=.......;Password=..........;" cnn.Open cnnstr rs.Open "select [Ad] from OdemeSeklis", cnn Do While Not rs.EOF For i = 0 To rs.Fields.Count - 1 Me.ListBox1.AddItem rs.Fields(i).Value Next rs.MoveNext Loop rs.Close cnn.close End Sub
Subscribe
Login
0 Yorum