ник: akkorn
to Дядя Федор
К сожалению не прокатывает.
В итоге выходит, что при подключениях из АДО и из ДАО типы полей различны:
DAO.dbSingle = 6
ADODB.adSingle = 4
и сответствено если подключаться из-под ДАО, то ответ будет =6,
а если из-под АДО, то 4.
Private Sub Command2_Click()
'ADO
Dim PthToDB As String
PthToDB = App.Path & "\db_Temp.db"
Dim aConn As ADODB.Connection, aRs As ADODB.Recordset
Set aConn = New ADODB.Connection
aConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PthToDB
aConn.Mode = adModeRead
aConn.Open
Set aRs = aConn.Execute("SELECT * FROM Table_1;", , adCmdText)
Dim fld As ADODB.Field
Set fld = aRs("Field_1")
MsgBox fld.Type
'схлопываем все
Set fld = Nothing
aRs.Close
Set aRs = Nothing
aConn.Close
Set aConn = Nothing
End Sub
|
p.s. Естественно что перед запуском Command2 мы должны запустить Command1 из первого поста- именно в ней создается БД с таблицей и полем.