Visual Basic + MySQL - это вообще возможно ???

[el-niko]

На хосте внете у меня есть база МySQL ... можно ли посредством ВБ читать строки их этой базы, записывать строки, редактировать и т.д.

Если это реально, то, пожалуйста, напишите как ?

Заранее всем спасибо и респект !!!

[FaKk2]

el-niko

Ты с английским дружишь? Тогда сходи по ссылке в моей подписи, прочитай...

Заодно посмотри как я искал информацию по твоей теме:

Зашел на Google, использовал ключевые слова:

Код: Выделить всё

access mysql "visual basic 6"

Первая же ссылка привела меня в нужное место.

[el-niko]

А нет примерчиков каких-нить, исходников или ещё какой-нить понятной русскоязычной инфы

С МуСКУЛОМ работал посредством РНР, а кот как это сделать Васиком - незнаю...

[FaKk2]

el-niko
Лично у меня нет.

[GSerg]

Неужели правда было сложно найти?

[el-niko]

Ребят, ну наивный я ламер или просто не работал с этим ни разу...

Напишите, пожалуйста простенький кодик, который добавляет строку в таблицу, ок ?

Буду очень благодарен !!!

[GSerg]

Что такое ADO, знаешь? Если нет, то очень много объяснять придётся.

[el-niko]

Не, не знаю... ну например как это делается в РНР...

Код: Выделить всё

mysql_connect($hostname,$username,$password); // подключились
mysql_select_db($dbName); // выбрали базу
$query = "SELECT * FROM $thm order by 'thm'"; // сформировали запрос
$res = mysql_query($query); // отправили запрос

ВсЁ !!!
неужели в VB нет аналогичных функций ?

[GSerg]

Есть. Они называются ADO.
Вперёд за книжкой.

[el-niko]

А в сетке нет рускоязычного хэлпа по АДО ?

Или будь другом, папиши простенький примерчик...

[kirrun]

Гугля...

[FaKk2]

el-niko

Ты я вижу очень упорен.

Почему бы тебе не направить свое упорство в поисках ответа на свои вопросы?

[Daz]

Могу привести пример работы ADO c Access:

Project-->References-->Microsoft ActiveX Data Objects 2.7 Library

Код: Выделить всё

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim cmd As String

Private Sub Command1_Click()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False"
sql = "select*from Authors "
With cn
.Open cmd
End With
With rs
.Open sql, cn, adOpenForwardOnly, adLockReadOnly

While Not rs.EOF
List1.AddItem rs("Author")
rs.MoveNext
Wend
End With

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing


End Sub



[Inferno]

Ты вначале посмотрел светит ли мускульный порт наружу.
И пиши на ПХП и быстрее будет и безопаснее.

[kirrun]

Inferno

На пхп ты не наишешь прогу с нормальным гуи. Я бы не хотел юзать прогу, которая через браузер запускается... =)

ЗЫ. Информация к сведению: все старания в написании проги сводятся на нет если у конечного юзера нет пхп-интерпритатора =)

[FaKk2]

kirrun

Смотря что за юзер.

У любой серьезной компании есть свой сайт. А раз есть сайт, есть и PHP.

[Inferno]

ЗЫ. Информация к сведению: все старания в написании проги сводятся на нет если у конечного юзера нет пхп-интерпритатора =)

А на кой конечному пользователю ПХП?
Ты форум видишь? Вот он написан на ПХП и крутится на мускульной базе.

[kirrun]

ЗЫ. Информация к сведению: все старания в написании проги сводятся на нет если у конечного юзера нет пхп-интерпритатора =)

А на кой конечному пользователю ПХП?
Ты форум видишь? Вот он написан на ПХП и крутится на мускульной базе.

Ибо интерпритатор на серваке и он мне эту страницу гонит. А ты раз умный такой, напиши прогу на пхп и открой у себя на компе... Тут в любом случае нужна либо среда, либо веб-сервер с пхп... У меня лично веб-сервер стоит (ну не только для этих целей, а впринципе)...

[kirrun]

FAKK2

Дык тада придецца эту прогу на веб-сервер нести, а из этого вытекает очень много проблем. Да и не у всех компаний есть веб-сервер. Чаще они пользуются хостингом...

[FaKk2]

kirrun

Ткни мне пальцем в хостинг без PHP

Чтоб я туда даже случайно не зашел.

[JIeT4uK]

http://www.kuzbass.ru/docs/mysql/manual_538.html

здесь полно всего для mysql, лично я начал рабиратья по MyTool-DLL_for_VB_and_MySQL.zip есть там ссылочка на это

[kirrun]

FAKK2

http://www.narod.ru/

Ткнул. =)

Да и речь не об этом а об том, что финансовая программа для учета будет выглядеть ну... как бы... смешно на пхп... Я бы не рискнул предложить кому0нить прогу на пхп... (Разумеется если речь не идет о сайте =))

[FaKk2]

kirrun

А что смешного?

Язык как язык. Даже красиво отчеты можно готовить.

Насчет Народа, я в курсе

Но серьезные компании на народе хоститься не будут же

[kirrun]

СЕРЬЕЗНЫЕ компании ваще хоститься не будут... Но мы не об этом... Напиши мне проограммку для работы с реестром на пхп =)

[FaKk2]

kirrun

У тебя шарики за ролики заехали?

Зачем тебе для отчета бух. деятельности реестр?

[kirrun]

Я впринципе говорю

[FaKk2]

kirrun

Это не принцип. Это даже не близко

[kirrun]

Лана все. Хватит оффтопить =)

[VAC]

Ставим MySQL ODBC 3.51 Driver
с указанной выше ссылки

Настраиваем в ODBC системный DSN с именем например "New_MySQL_ODBC_con"
В настройках указать сервер, порт, юзер, пароль, база данных и т.д.


И юзаем стандартным способом подключения к ODBC провайдеру:


Sub main()
On Error GoTo err1
Set con = CreateObject("ADODB.Connection")
con.CommandTimeout = 500
con.Open "New_MySQL_ODBC_con" '

Set MySQL_Fills = con.execute("select * from MySQL_Table")

Fills_count = 0
Dim Fills_massive()

Do While Not MySQL_Fills.EOF
Fills_count = Fills_count + 1
ReDim Preserve Fills_massive(Fills_count)
Fills_massive(Fills_count) = MySQL_Fills(0)
Loop

MsgBox "Результат запроса: " & Fills_count & " записей содержится в массиве Fills_massive()"

con.Close
Set con = Nothing

Exit Sub
err1:
MsgBox Err.Description, vbCritical
End Sub