Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
DataList not fill
Help which is my err? thanks!
Private Sub TextBox1_Change() Dim Way As String Dim Cnn As ADODB.Connection Dim Rst As ADODB.Recordset Dim dlDataList As DataList Dim Fonts As String Load UserForm1 Way = ThisWorkbook.Path Fonts = TextBox1 Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & Way & "\Travels.mdb" .Open End With Set Rst = New ADODB.Recordset Rst.Open "SELECT DISTINCT Travel.Tname FROM Travel WHERE Travel.Tname " & _ "LIKE '" & Fonts & "%' ORDER BY Travel.Tname", Cnn, , , adCmdText Set Adodc1.Recordset = Rst Set dlDataList = DataList1 Set dlDataList.RowSource = Adodc1 Rst.Close: Set Rst = Nothing Cnn.Close: Set Cnn = Nothing End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
prepare a Production Batch sheet from Datalist | Excel Discussion (Misc queries) | |||
Eliminate double entries in datalist in bulk | Excel Discussion (Misc queries) | |||
Excel Datalist functions / lookup summary | Excel Discussion (Misc queries) | |||
Finding all matches in column B with datalist in column A | Excel Programming | |||
DataList or DataGrid link to Recordset or External Data | Excel Programming |