База данных - VB
Формулировка задачи:
Здравствуйте. Помогите пожалуйста сделать программку на VB 6.0, в которой можно добавить, удалить, редактировать, поиск по полям БД. И выводит данные БД в MS Flex Grid или Data Grid.
Решение задачи: «База данных»
textual
Листинг программы
Private Sub Command1_Click() 'Предварительно подключите библиотеку Microsoft ActiveX Data Objects 2.5 Library Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BIBLIO.MDB;User Id=Admin;Password=;" cn.Open With rs .ActiveConnection = cn .CursorLocation = adUseClient .CursorType = adOpenForwardOnly .Source = "SELECT * FROM Publishers WHERE State='NY'" .Open End With Set Me.DataGrid1.DataSource = rs Set MSHFlexGrid1.DataSource = rs End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д