VBNet - Форум - удаленное подГлючение мускул 5.0

Вопрос: удаленное подГлючение мускул 5.0 Добавлено: 01.10.09 21:32

Автор вопроса: portC | Web-сайт: feshin.info

подскажите, не могу разобраться что не так, либо в коде косяк либо в настройках базы

база поднята на виртуальной машине (Ubuntu 9.04, MySQL-server 5.0) локально коммандной строкой коннекчусь, а с винды - никак
какие особенности или где ошибка в коде?
Исходников не нашел, буду рад, если кто покажет заведомо рабочие

Private Sub Command1_Click()
Dim ADO_Connect As ADODB.Connection
Dim ADO_Recordset As ADODB.Recordset
'----------------------------------------------------------------------------------
'ñîçäàåì íîâîå ïîäêëþ÷åíèå ê ÁÄ
Set ADO_Connect = New ADODB.Connection
With ADO_Connect
    .ConnectionString = "Provider=MSDASQL.1;Driver=MySQL ODBC 5.1 Driver;Server=192.168.1.4;Port=3306;UID=root;PWD=32167;Database=mysql;dsn=ZN1;"
    .Mode = adModeReadWrite
    .Open
End With
'----------------------------------------------------------------------------------
'ñîçäàåì íîâûé ðåêîðäñåò è çàïîëíÿåì åãî äàííûìè èç òàáëèöû "avalon"
Set ADO_Recordset = New ADODB.Recordset
With ADO_Recordset
    Set .ActiveConnection = ADO_Connect
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Source = "SELECT * FROM test1;"
    .Open
End With
'----------------------------------------------------------------------------------
'ïåðåõîä íà ïåðâóþ çàïèñü, ñ÷èòûâàåì çíà÷åíèå ïîëÿ "fio"
ADO_Recordset.MoveFirst
Text1.Text = ADO_Recordset("familiya")
'----------------------------------------------------------------------------------
'çàêðûâàåì îáúåêòû ÀÄÎ, îñâîáîæäàåì ðåñóðñû
ADO_Recordset.Close: Set ADO_Recordset = Nothing
ADO_Connect.Close: Set ADO_Connect = Nothing
End Sub

Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: portC Вопросов: 14 Ответов: 101	Web-сайт: feshin.info Профиль \| \| #1	Добавлено: 02.10.09 11:30
	видимо с биндом проблема была... перенастроил но все-же хочется комментариев по теме кода , либо ссылок Ответить

Номер ответа: 2 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #2	Добавлено: 10.10.09 22:26
	Ты хотя бы код покажи нормально, иначе ответов не дождешься. Ответить

Номер ответа: 3 Автор ответа: portC Вопросов: 14 Ответов: 101	Web-сайт: feshin.info Профиль \| \| #3	Добавлено: 11.10.09 14:02
	а что тут не нормального, просто русский шрифт комментариев отобразился в виде абраказябры типа ñ и т.д. на ваське, видимо, кто кодить нормально умеет не ходит уже на этот форум я нашел решение - пишу все, что хотел с БД на php - там проблем подобных нет Ответить

Номер ответа: 4 Автор ответа: portC Вопросов: 14 Ответов: 101	Web-сайт: feshin.info Профиль \| \| #4	Добавлено: 11.10.09 14:05
	Private Sub Command1_Click() Dim ADO_Connect As ADODB.Connection Dim ADO_Recordset As ADODB.Recordset '---------------------------------------------------------------------------------- Set ADO_Connect = New ADODB.Connection With ADO_Connect .ConnectionString = "Provider=MSDASQL.1river=MySQL ODBC 5.1 Driver;Server=192.168.1.4;Port=3306;UID=root;PWD=32167atabase=mysql;dsn=ZN1;" .Mode = adModeReadWrite .Open End With '---------------------------------------------------------------------------------- Set ADO_Recordset = New ADODB.Recordset With ADO_Recordset Set .ActiveConnection = ADO_Connect .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Source = "SELECT * FROM test1;" .Open End With '---------------------------------------------------------------------------------- ADO_Recordset.MoveFirst Text1.Text = ADO_Recordset("familiya" '---------------------------------------------------------------------------------- ADO_Recordset.Close: Set ADO_Recordset = Nothing ADO_Connect.Close: Set ADO_Connect = Nothing End Sub вот без комментариев кусок кода хотя надобности отвечать на этот пост уже нет... Ответить

Страница: 1 |