Ñóááîòà, 20 ßíâàðÿ 2018 ã. 18:53
+ â öèòàòíèê
Äîáðûé äåíü!
Ïðîøó ïîìîùè â ðàçúåñíåíèè
åñòü ïîäêëþ÷åíèå
On Error Resume Next
Dim oConn As Object
Set oConn = New ADODB.Connection
oConn.Open "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
"SERVER=test;" & _
"DATABASE=test;" & _
"UID=test;" & _
"PASSWORD=test;" & _
"PORT:3306;" & _
"Option=3;"
If oConn.State = adStateOpen Then
MsgBox "Çäðàñòè, ÿ âàøà Òåòÿ =)"
Else
MsgBox "Ôèãàñå... =("
End If
Äàëüøå íåîáõîäèìî âûòàùèòü äàííûå èç êàêîé íèáóäü òàáëèöû, ïîìîãèòå íàïèñàòü ïðèìåð...
È åùå âîïðîñèê, íà êàæäîå ñîáûòèå ìíå íàäî îòêðûâàòü ïîäêëþ÷åíèå (íàïèñàíî âûøå), åñëè íåîáõîäèìî âûòàùèòü äàííûå???
http://www.sql.ru/forum/1283065/access-mysql
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-