Помогите с recordset.open, выдает в datagrid только название полей и все. - VB

Узнай цену своей работы

Формулировка задачи:

Может кто нибудь может объяснить почему в DataGride при использование recordset.open
не оттображается ничего, кроме названий полей???
Имеется Access база, две таблицы tabel1 и table2, даю код
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ssql As String
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False; Data Source=C:\table1.mdb; Jet OLEDB:Database Password="
cnn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = cnn
rs.Source = "select * From tName"
rs.Open
Set Me.DataGrid1.DataSource = rs
В датагриде ничего кроме названия полей, и еще если дать
Private Sub Form_Activate()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ssql As String
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False; Data Source=C:\table2.mdb; Jet OLEDB:Database Password="
cnn.Open
Set rs = New ADODB.Recordset
rs.ActiveConnection = cnn
rs.Source = "select * From tPrice"
rs.Open
Set Me.DataGrid1.DataSource = rs
End Sub
ругается, говорит
The Microsoft Jet database engine cannot find the input tabel or query 'table2. Make sure it exists and that its name is spelle correctly.
Как я понимаю ругается мол, таблицы такой нема (дык есть она, а он не видит) , а почему :-(( ???

Решение задачи: «Помогите с recordset.open, выдает в datagrid только название полей и все.»

textual
Листинг программы
rs.<font color="blue">Open</font> <b><font color="green">"<font color="blue">select</font> * <font color="blue">From</font> tName"</font></b> , cnn,adOpenStatic

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.111 из 5