Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
- "Data Source=C:WorkspaceData.gdb"
- rst.Open "SELECT DISTINCT [Adi],[KimlikNo]FROM MahalleSiniri ORDER BY [Adi];", _
- cnn, adOpenStatic
- rst.MoveFirst
- ComboBox4.Clear
- With Me.ComboBox1
- .Clear
- ComboBox1.Text = "Mahalle Seçiniz..."
- Do
- ComboBox1.AddItem rst![Adi]
- ComboBox4.AddItem rst![KimlikNo]
- rst.MoveNext
- Loop Until rst.EOF
- End With
- 'UserForm_Initialize_Exit:'
- On Error Resume Next
- rst.Close
- cnn.Close
- Exit Sub
- UserForm_Initialize_Err:
- MsgBox Err.Number & vbCrLf & Err.Description, vbCritical, "Error!"
- Resume UserForm_Initialize_Exit
- End Sub
Add Comment
Please, Sign In to add comment