VBA.Mania

vbamania.pl

Dziś jest niedziela, 10 listopada 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	vba+mysql otwarty rozpoczął: remek81 postów: 4

napisał: remek81 postów: 3 umieszczony: 6 lutego 2006 22:25
	No to jeszcze napisze jak polaczyc sie przez referencje: Dim objK As ADODB.Connection Public Sub open_conn() Set objK = New ADODB.Connection objK.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER= localhost; DATABASE=test; UID=root; PWD=remi; OPTION=3" objK.Open End Sub Konieczne jest ofkors zaznaczenie Microsoft ActiveX 2.0 Library w menu "References".

napisał: remek81 postów: 3 umieszczony: 6 lutego 2006 21:44
	Cytat: Witam, Kiedys, (daaaaaawno temu :D) na studiach robilem podobna rzecz - dostep do bazy danych MySQL poprzez VB. Z tego, co pamietam do polaczenia z baza MySQL potrzebny byl specjalny sterownik. Jak to dokladnie zrobic przeczytalem na stronie http://www.vbmysql.com/ Powodzenia! PS. Jak Ci sie uda to moze pochwalisz sie na forum? Jak to zwykle bywa z bug'ami rowiazanie banalne, ale zeby je znalezc potrzeba spedzic 3 dni przed monitorem:/ ->miedzy "3.51", a "Driver" powinna byc spacja o_O a po za tym: ->do metody cnn3.open nie stosuje sie IF'a Pozdrawiam!

napisał: admin postów: 613 umieszczony: 6 lutego 2006 13:19
	Witam, Kiedys, (daaaaaawno temu :D) na studiach robilem podobna rzecz - dostep do bazy danych MySQL poprzez VB. Z tego, co pamietam do polaczenia z baza MySQL potrzebny byl specjalny sterownik. Jak to dokladnie zrobic przeczytalem na stronie http://www.vbmysql.com/ Powodzenia! PS. Jak Ci sie uda to moze pochwalisz sie na forum?

napisał: remek81 postów: 3 umieszczony: 5 lutego 2006 01:54
	Witam, Mam nastepujacy problem: Chcialbym sie polaczyc z baza Mysql poprzez Vba (w excel'u). pisze nastepujacy kod: Sub conn() Dim cnn3 As Object Set cnn3 = CreateObject("ADODB.Connection") cnn3.ConnectionString = "DRIVER={MySQL ODBC 3.51Driver}; SERVER= localhost; DATABASE=test; UID=root; PWD=remi; OPTION=3" 'dla sprawdzenia czy jest ok If (cnn3.Open = True) Then MsgBox ("Jest git") Else: MsgBox ("Zong") End If End Sub Uruchamiam makro i wypluwa mi taki blad: "[ODBC Ddiver Manager] Data source name not found and no default driver specified" Z gory dzieki za pomoc. Ps. Mam zainstalowane sterowniki do ODBC 3.51 Pss. Nie odsylajcie mnie prosze do manuali czy innych tutoriali bo juz probowalem chyba wszystkiego (na studiach lizlem troche vb i z tego co pamietem z polaczeniem do MS sql'a nie bylo zadnych problemow)

wstecz 1 dalej

wszystkich stron: 1