-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Access + MySQL

Ñóááîòà, 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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó