connect mysql

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Skarobey
Обычный пользователь
Обычный пользователь
 
Сообщения: 73
Зарегистрирован: 01.06.2002 (Сб) 17:34
Откуда: Russia

connect mysql

Сообщение Skarobey » 13.11.2005 (Вс) 17:20

как осуществляется соединение к удаленному компу c mysql?
проверка логина, и чтение данных.
что-то там через ADODB.

и какие библиотеки подрубать?!

зарание спасибо

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 13.11.2005 (Вс) 17:24


Skarobey
Обычный пользователь
Обычный пользователь
 
Сообщения: 73
Зарегистрирован: 01.06.2002 (Сб) 17:34
Откуда: Russia

Re: connect mysql

Сообщение Skarobey » 14.11.2005 (Пн) 20:45

спасибо, помогло...
теперь у меня проблема, не могу осуществить запись в ячейку, мож кто поможет?!

Код: Выделить всё
Set m_Conn = New ADODB.Connection
With m_Conn
    .ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Port=3306;Database=MyDB;USER=root;PASSWORD=111;OPTION=3;"
    .Open
End With
Set m_Rs = m_Conn.Execute("SELECT * FROM account")
m_Rs.MoveFirst
Do While Not m_Rs.EOF
If Combo2.Text = m_Rs.Fields("name").Value Then
m_Rs.Fields("nick").Value = Text1.Text
m_Rs.Fields("mail").Value = Text2.Text
m_Rs.Update
m_Rs.MoveNext
Else
m_Rs.MoveNext
End If
Loop

m_Rs.Close
m_Conn.Close

запарка на m_Rs.Fields("nick").Value = Text1.Text

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 14.11.2005 (Пн) 20:58

Код: Выделить всё
Set m_Rs = New ADODB.Recordset
Set m_Rs.ActiveConnection=m_Conn
m_Rs.Open "SELECT * FROM account",,adOpenKeyset, adLockOptimistic, adCmdText
...

Skarobey
Обычный пользователь
Обычный пользователь
 
Сообщения: 73
Зарегистрирован: 01.06.2002 (Сб) 17:34
Откуда: Russia

Сообщение Skarobey » 14.11.2005 (Пн) 23:21

Konst_One писал(а):
Код: Выделить всё
Set m_Rs = New ADODB.Recordset
Set m_Rs.ActiveConnection=m_Conn
m_Rs.Open "SELECT * FROM account",,adOpenKeyset, adLockOptimistic, adCmdText
...
спаситель :roll:


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: SemrushBot и гости: 155

    TopList