Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Простой запрос к SQL-базе на сервере Добавлено: 13.01.11 08:24  

Автор вопроса:  MYSTERIOR | Web-сайт: XXX | ICQ: 227369659 
Добрый день,

Допускаю, что вопрос уже обсуждался на форуме, но я честно говоря так и не понял что мне нужно из всего этого.Что есть:

-сервер базы данных
-название базы даных
-имя пользователя
-пароль
-название таблицы

Задача: в интересующей таблице 5 столбцов, необходимо считать каждую из строк в какой-нибудь массив ну или куда ли бо еще. Вобщем просто получать данные по всем пяти столбцам каждой строки.

Как это реализовать, если ли примеры именно применимые к моей ситуации?

Ответить

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

Номер ответа: 1
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #1 		Добавлено: 13.01.11 08:25
Забыл сказать, Visual Basic 6

Ответить

Номер ответа: 2
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #2 		Добавлено: 14.01.11 06:43
Забыл сказать, сервер MySQL

Версия сервера: 5.0.77-log
Версия протокола: 10
MySQL-кодировка: UTF-8 Unicode (utf8)

если это чего то поможет, потому что рабочего примера я так и не смог найти

Ответить

Номер ответа: 3
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #3 		Добавлено: 14.01.11 15:09
тебе нужен контрол DataGrid. насчёт sql подскажу общий ситаксис:
  1. SELECT * From "таблица"

это код "считывания"
строку соеденения найдёшь на connectionstrings.com

Ответить

Номер ответа: 4
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #4 		Добавлено: 14.01.11 17:05
  1.  
  2. Public MDB As New Connection
  3. Public TBL As New Recordset
  4.  
  5. Private Sub Form_Load()
  6.  
  7. On Error GoTo errHandler
  8.  
  9.     With MDB
  10.  
  11.         .CursorLocation = adUseClient
  12.  
  13.         .ConnectionString = строка соединения
  14.  
  15.         .Open
  16.  
  17.     End With
  18.  
  19.     Set DataGrid1.DataSource = TBL
  20.  
  21.     TBL.Open "select * from Evedences", MDB, adOpenStatic, adLockOptimistic
  22.  
  23.     DataGrid1.ReBind
  24.     
  25. errHandler:
  26. обработка ошибок...
  27. Exit Sub

Ответить

Номер ответа: 5
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #5 		Добавлено: 15.01.11 21:06
Выглядит круто, но что необходимо подключать к проекту?

Я подключил в Refrences Mircosoft ADO 6 - ругается на Connection

естественно всякие датагриды поставил

Ответить

Номер ответа: 6
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #6 		Добавлено: 15.01.11 21:08
уже не ругается - гугл помог, буду отписываться как происходит процесс войны м MySQL!

Ответить

Номер ответа: 7
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #7 		Добавлено: 15.01.11 21:15
[Microsoft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию"


Вот такое выскакивает, гугл пока ответа не дал - с чем это может быть связано?

Ответить

Номер ответа: 8
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #8 		Добавлено: 15.01.11 21:23
  1. ConnectionString = "Server=mysql.****.z8.ru;Database=***;Uid=***;Pwd=******;"


Так вылетает ошибка, обозначенная выше - это то что говорит connectionstrings.com - с другой стороны на этом сайте я видел упоминание что это для .NET Framework, а у меня не Framework. Попробовал так:

  1. ConnectionString = "Driver={SQL Server};Server=mysql.****.z8.ru;Database=***;Uid=***;Pwd=******;"


Теперь после длиннющего зависания вылетает вылетает:

][ODBC SQL Server Driver] SQL сервер не существует или доступ запрещен

Ответить

Номер ответа: 9
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #9 		Добавлено: 16.01.11 01:21
  1. Option Explicit
  2. Const Database As String = "learn0"
  3. Const Table As String = "Table1"
  4.  
  5. Private Sub Form_Load()
  6.     Dim conn As ADODB.Connection, rs As ADODB.Recordset, i As Long
  7.     Set conn = New ADODB.Connection
  8.     conn.CursorLocation = adUseClient
  9.     conn.ConnectionString = "driver={MySQL ODBC 3.51 Driver};" _
  10.             & "server=localhost;" _
  11.             & "database=" & Database & ";" _
  12.             & "uid=root;" _
  13.             & "pwd=;" _
  14.             & "option=" & 1 + 2 '+ 8 + 32 + 2048 + 16384
  15.     conn.Open
  16.     Set rs = New ADODB.Recordset
  17.     rs.Open "SELECT * FROM " & Table, conn, adOpenStatic, adLockReadOnly
  18.     'Print column names
  19.     If Not rs.EOF Then
  20.         For i = 0 To rs.Fields.Count - 1
  21.             Debug.Print """" & rs.Fields.Item(i).Name & """", , ;
  22.         Next i
  23.     End If
  24.     Debug.Print
  25.     'Print table content
  26.     Do Until rs.EOF
  27.         For i = 0 To rs.Fields.Count - 1
  28.             Debug.Print rs.Fields.Item(i), , ;
  29.         Next i
  30.         Debug.Print
  31.         rs.MoveNext
  32.     Loop
  33.     rs.Close
  34. End Sub

Ответить

Номер ответа: 10
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #10 		Добавлено: 16.01.11 01:52
Winand,
[Microsoft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию"


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

Ответить

Номер ответа: 11
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #11 		Добавлено: 16.01.11 01:59
Winand, теперь веселее - Can't connect to server on mysql.***.z8.ru

Может я не тот сервер указываю? Но в phpMyAdmin стоит именно он...

Ответить

Номер ответа: 12
Автор ответа:
 HIWORD



Вопросов: 0
Ответов: 14
  Профиль | | #12 Добавлено: 16.01.11 03:32
А родной MySQL ODBC 3.51 Driver ты установил? Похоже, что нет. И пытаешься законнектиться через майкрософтовский sql-server, который не имеет никакого отношения к mysql.

Ответить

Номер ответа: 13
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #13 		Добавлено: 16.01.11 04:21
Да! Установил родной дистрибутив на 3 половиной мега

Ответить

Номер ответа: 14
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #14 		Добавлено: 16.01.11 04:22
Плюнул, написал парсер базы на PHP...

Ответить

Номер ответа: 15
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #15 		Добавлено: 16.01.11 12:14
ахах) Быстро как.
У меня на локалхосте стоит mysql к которому я раньше из нетбинса коннектился. Так вообще безпроблемно всё заработало.

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам