PureBasic и mySQL

@abbat81 · Регистрация: 20.07.2011

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста создать подключение и произвести действие с БД MySQL.

На VB.NET это все выглядит пристойно, несколькими строками, а в PureBasic никак не могу найти внятного примера.

Вот пример на VB.NET:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Imports MySql.Data.MySqlClient
 
Dim txtServer As String = "localhost"
        Dim txtUsername = "root"
        Dim txtPassword As Integer = "123456"
        Dim CONNECTION = New MySqlConnection()
        CONNECTION.ConnectionString = "server=" & txtServer.ToString & ";" _
    & "user id=" & txtUsername.ToString & ";" _
    & "password=" & txtPassword & ";" _
    & "database=bd"
 
        CONNECTION.Open()
 
 
            Dim dt As Date = Date.Now
            Dim COMMAND2 = New MySqlCommand("UPDATE Statistic SET SessionEnd = now()  WHERE kluch = '" & kluch & "'")
            COMMAND2.Connection = CONNECTION
            COMMAND2.ExecuteNonQuery()
 
 CONNECTION.close()

@Le Thaw · 31.10.2011, 15:10

Интересует подключение к удаленной базе или же подойдет не серверная база?

@abbat81 · 31.10.2011, 15:12 **[ТС]**

Le Thaw, интересует подключение к localhost (127.0.0.1).
Нсколько я понимаю, подключившись так, я смогу подключиться и к удаленному хосту.

@Le Thaw · 31.10.2011, 15:15

PureBasic
1
2
3
4
5
6
7
  UsePostgreSQLDatabase() 
 
   If OpenDatabase(0, "host=localhost port=3360", "root", "password") 
     Debug "Connected to PostgreSQL" 
   Else 
     Debug "Connection failed: "+DatabaseError() 
   EndIf

@abbat81 · 31.10.2011, 15:17 **[ТС]**

Le Thaw, вот именно - это уже пробовал - не получается

Connection failed: could not connect to server: Connection refused (0x0000274D/10061)
Is the server running on host "localhost" and accepting
TCP/IP connections on port 3360?

@Le Thaw · 31.10.2011, 15:19

Если изменить строку так

PureBasic
1
OpenDatabase(0, "localhost", "root", "password")

@abbat81 · 31.10.2011, 15:24 **[ТС]**

Le Thaw, к сожалению. Как-то мутно все это

@PB · 31.10.2011, 15:24

Если в гугле вбить код ошибки 0x0000274D/10061, то можно найти причину ее возникновения.

@abbat81 · 31.10.2011, 15:32 **[ТС]**

PB, не очень охотно Гугл выдает решение проблемы, особенно если учесть, что ищу способ подключения к MySQL а не к PostgreSQL

@PB · 31.10.2011, 15:36

PureBasic для работы с MySQL использует PostgreSQL, потому что бесплатно.

@abbat81 · 31.10.2011, 15:41 **[ТС]**

Сообщение от PB

использует PostgreSQL, потому что бесплатно.

бесплатно - и бесполезно.

@PB · 31.10.2011, 15:43

Можно использовать библиотеку из вложения.

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
hDB = mysql_init(#Null)
If hDB
  If mysql_real_connect(hDB,"localhost","root","","",3306,"NULL",#Null)
    If mysql_select_db(hDB,"test")
      Test_Error(hDB)
    Else
      mysql_autocommit(hDB,#True)
      Test_Server(hDB)
      Test_Processes(hDB)
      Test_Dbs(hDB)
      Test_Tables(hDB)
      Test_String(hDB)
      Test_CharSet(hDB)
      Test_Query(hDB,"SELECT NOW()")
      Test_Query(hDB,"SELECT NOW() 'DateTime', (1+2*16) 'Expression'")
      Test_Query(hDB,"DROP TABLE people")
      Test_Query(hDB,"CREATE TABLE people (id INT(8) NOT NULL AUTO_INCREMENT, firstname VARCHAR(64), name VARCHAR(64), PRIMARY KEY (id), UNIQUE KEY id (id), UNIQUE KEY name (name))")
      Test_Query(hDB,"INSERT INTO people VALUES('','Jean','Dupont')")
      Test_Query(hDB,"INSERT INTO people VALUES('','Patrice','Durand')")
      Test_Query(hDB,"INSERT INTO people VALUES('','Hйlиne','Dubois')")
      Test_Query(hDB,"INSERT INTO people VALUES('','Lйon','Martin'),('','Nathalie','Morin'),('','Hйlиne','Dujardin')")
      Test_Query(hDB,"UPDATE people SET firstname='Valйrie' WHERE firstname='Hйlиne'")
      Test_Query(hDB,"SELECT firstname,name FROM people ORDER BY name ASC")
      Test_Stmt(hDB)
    EndIf
  Else
    Test_Error(hDB)
  EndIf
  mysql_close(hDB)
EndIf

@PB · 31.10.2011, 20:22

Можно еще посмотреть эту инфу, правда она на английском.
Там есть такой код

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
; survival guide 13_9_110 mysql 
; pb 4.40b1 
; 
UseODBCDatabase() 
; 
Enumeration 
  #cars_firstname 
  #cars_lastname 
  #cars_brand 
  #cars_colour 
EndEnumeration 
; 
If OpenDatabase(1,"mysql","root","root",#PB_Database_ODBC) = 0 
  Debug "cannot open" 
Else 
  ; 
  DatabaseUpdate(1, "DROP TABLE cars" ) 
  DatabaseUpdate(1, "CREATE TABLE cars ( firstname TEXT , lastname TEXT , brand TEXT , colour TEXT ) ;" ) 
  DatabaseUpdate(1, "INSERT INTO cars VALUES ( 'jan peter' , 'balkenende' , 'volvo' , 'black' ) ;" ) 
  DatabaseUpdate(1, "INSERT INTO cars VALUES ( 'michael' , 'schumacher' , 'ferrari' , 'red' ) ;" ) 
  DatabaseUpdate(1, "INSERT INTO cars VALUES ( 'johnny' , 'fireman' , 'mack' , 'red' ) ;" ) 
  DatabaseUpdate(1, "INSERT INTO cars VALUES ( 'mick' , 'jagger' , 'cadillac' , 'black' ) ;" ) 
  ; 
  DatabaseUpdate(1, "UPDATE cars SET colour = 'red'"+#CRLF$+"WHERE lastname = 'balkenende' ;" ) 
  DatabaseUpdate(1, "UPDATE cars SET colour = 'black'"+#CRLF$+"WHERE lastname = 'schumacher' ;" ) 
  ; 
  DatabaseUpdate(1, "DELETE FROM cars WHERE lastname = 'schumacher' ;" ) 
  ; 
  DatabaseQuery(1, "SELECT * FROM cars WHERE cars.colour = 'black' ORDER BY cars.brand ;" ) 
  While NextDatabaseRow(1) > 0 
    x.s = GetDatabaseString(1,#cars_firstname) + " , " 
    x.s = x.s + GetDatabaseString(1,#cars_lastname) + " , " 
    x.s = x.s + GetDatabaseString(1,#cars_brand) + " , " 
    x.s = x.s + GetDatabaseString(1,#cars_colour) 
    Debug x.s 
  Wend 
  FinishDatabaseQuery(1) 
  CloseDatabase(1) 
  ; 
EndIf

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

Добавлено через 4 часа 8 минут

Сообщение от abbat81

Connection failed: could not connect to server: Connection refused (0x0000274D/10061)
Is the server running on host "localhost" and accepting
TCP/IP connections on port 3360?

Разве MySQL использует порт 3360?
А если попробовать порт 3306 и правильный логин/пароль?

Code
1
2
3
4
5
6
UsePostgreSQLDatabase()
If OpenDatabase(0, "host=localhost port=3306", "root", "123456")
  Debug "Connected to PostgreSQL"
Else
  Debug "Connection failed: "+DatabaseError()
EndIf

@abbat81 · 31.10.2011, 20:26 **[ТС]**

PB, Порт и вправду - 3306. Но это и так понятно.
Вобщем ,пример с вложением - действенный.
Но есть куча вопросов.
в этом примере закидывать слова в кириллице отказывается, после компиляции в редакторе крякозяблы. Как то несовместимо с поддержкой кирилицы в примере "Привет Мир". Будем изучатью

2) Нужно научиться использовать коннект по сухому.
Тоесть строка подключения, запрос, закрытие.
В примере не могу разобрать одно от другого

@PB · 31.10.2011, 20:37

Сообщение от abbat81

Тоесть строка подключения, запрос, закрытие.
В примере не могу разобрать одно от другого

Подключение

Code
1
mysql_real_connect(hDB,"localhost","root","","",3306,"NULL",#Null)

закрытие

Code
1
mysql_close(hDB)

@abbat81 · 31.10.2011, 21:07 **[ТС]**

PB, Нужно еще определить вот это
hDB = mysql_init(#Null)

Добавлено через 23 минуты
Осталось выяснить, как в приведеном примере заносить в БД имена на кириллице.
А так всоде вцелом работает.

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@Le Thaw 37 / 37 / 1 Регистрация: 07.09.2010 Сообщений: 752
	31.10.2011, 15:10
	Интересует подключение к удаленной базе или же подойдет не серверная база? 0

@abbat81 33 / 33 / 3 Регистрация: 20.07.2011 Сообщений: 407
	31.10.2011, 15:12 [ТС]
	Le Thaw, интересует подключение к localhost (127.0.0.1). Нсколько я понимаю, подключившись так, я смогу подключиться и к удаленному хосту. 0

@abbat81 33 / 33 / 3 Регистрация: 20.07.2011 Сообщений: 407
	31.10.2011, 15:17 [ТС]
	Le Thaw, вот именно - это уже пробовал - не получается Connection failed: could not connect to server: Connection refused (0x0000274D/10061) Is the server running on host "localhost" and accepting TCP/IP connections on port 3360? 0

@abbat81 33 / 33 / 3 Регистрация: 20.07.2011 Сообщений: 407
	31.10.2011, 15:24 [ТС]
	Le Thaw, к сожалению. Как-то мутно все это 0

@PB Просто прогер 1292 / 1079 / 13 Регистрация: 13.03.2009 Сообщений: 2,502
	31.10.2011, 15:24
	Если в гугле вбить код ошибки 0x0000274D/10061, то можно найти причину ее возникновения. 0

@abbat81 33 / 33 / 3 Регистрация: 20.07.2011 Сообщений: 407
	31.10.2011, 15:32 [ТС]
	PB, не очень охотно Гугл выдает решение проблемы, особенно если учесть, что ищу способ подключения к MySQL а не к PostgreSQL 0

@PB Просто прогер 1292 / 1079 / 13 Регистрация: 13.03.2009 Сообщений: 2,502
	31.10.2011, 15:36
	PureBasic для работы с MySQL использует PostgreSQL, потому что бесплатно. 0

@abbat81 33 / 33 / 3 Регистрация: 20.07.2011 Сообщений: 407
	31.10.2011, 20:26 [ТС]
	PB, Порт и вправду - 3306. Но это и так понятно. Вобщем ,пример с вложением - действенный. Но есть куча вопросов. в этом примере закидывать слова в кириллице отказывается, после компиляции в редакторе крякозяблы. Как то несовместимо с поддержкой кирилицы в примере "Привет Мир". Будем изучатью 2) Нужно научиться использовать коннект по сухому. Тоесть строка подключения, запрос, закрытие. В примере не могу разобрать одно от другого 0

@abbat81 33 / 33 / 3 Регистрация: 20.07.2011 Сообщений: 407
	31.10.2011, 21:07 [ТС]
	PB, Нужно еще определить вот это hDB = mysql_init(#Null) Добавлено через 23 минуты Осталось выяснить, как в приведеном примере заносить в БД имена на кириллице. А так всоде вцелом работает. 0