Проблемы с ADO при подключении базы данных в Visual Basic 6
Всем доброго времени суток! Как-то уже обращался к форумчанам с подобной проблемой, но не нашёл отклика. Проблема следующая: в VB6 создаю форму, при помощи которой я вывожу базу данных Access в DataGridView по выбору через CommonDialog. Без использования CommonDialog по аналогичному алгоритму база данных беспроблемно отображается в Grid. При попытке использовать CommonDialog для работы с множетсвами баз возникает ADO-ошибка, связанная с построением SQL-запроса(как я предполагаю).
Ниже приведу код, который я использую(если в нём увидите синтаксические ошибки - не обращайте внимания : я переехал на другой системник и ещё не успел поставить Basic , код набирал в Блокноте). Заранее спасибо за помощь!
Ниже приведу код, который я использую(если в нём увидите синтаксические ошибки - не обращайте внимания : я переехал на другой системник и ещё не успел поставить Basic , код набирал в Блокноте). Заранее спасибо за помощь!
Код:
Option Explicit
Dim strRequest As String
Private Sub Combo1_Click()
Dim strRequest As String
strRequest = " Select * FROM " & Combo1.List(Combo1.ListIndex & " "
End Sub
Private Sub Text1_DblClick()
CommonDialog1.ShowOpen
Text1 = CommonDialog1.FileName
Adodc1.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source = " & Text1 & "; Persist Security Info = False;"
Combo1.Enabled = True
Adodc1.RecordSource = strRequest
Adodc1.CommandType = 4
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Refresh
End Sub
Dim strRequest As String
Private Sub Combo1_Click()
Dim strRequest As String
strRequest = " Select * FROM " & Combo1.List(Combo1.ListIndex & " "
End Sub
Private Sub Text1_DblClick()
CommonDialog1.ShowOpen
Text1 = CommonDialog1.FileName
Adodc1.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source = " & Text1 & "; Persist Security Info = False;"
Combo1.Enabled = True
Adodc1.RecordSource = strRequest
Adodc1.CommandType = 4
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Refresh
End Sub
Text1- в таком контексте это объект Variant/String
Text1.Text - гарантирует String
Для страховки Trim(Text1.Text)
Text1.Text - гарантирует String
Для страховки Trim(Text1.Text)
Цитата: UserNet2008
Text1- в таком контексте это объект Variant/String
Text1.Text - гарантирует String
Для страховки Trim(Text1.Text)
Text1.Text - гарантирует String
Для страховки Trim(Text1.Text)
указание в данном месте типа на чтение Бэйсиком кода и его работоспособность не влияет , как по мне
Цитата: UserNet2008
немного не понял ваш посыл :что именно я должен проверить?