Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft SQL Server Новый топик    Ответить
 Запрос из visual studio в mysql  [new]
Катя2105
Member

Откуда:
Сообщений: 2
Здравствуйте. Помогите с запросом!


С датчика поступают значения влажности и температуры (vl и t) и отдельно системное время.

Public Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim mydata As ComDataType = GetComData()

If mydata.vl <> "" Then
TextBox2.Text = mydata.vl

End If
If mydata.t <> "" Then
TextBox3.Text = mydata.t
End If

End Sub

Мне нужно два запроса: один выводит содержимое таблицы mysql с результатами, а другой пополняет эту таблицу результатами с датчика.

Первый работает, в текстбоксе выводится вся таблица. Код ниже.


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



Dim conn As New MySqlConnection
conn.ConnectionString = "server=localhost;user='root';password='';database='kat'"

Dim query As String = "SELECT * FROM pok3"

Dim cmd As New MySqlCommand(query, conn)

Dim reader As MySqlDataReader


Try
conn.Open()
reader = cmd.ExecuteReader()

' данные в текстбоксе
While reader.Read()

'vl
TextBox1.AppendText(reader.GetInt32(0) & vbTab)
'tm
TextBox1.AppendText(reader.GetInt32(1) & vbTab)
'date
TextBox1.AppendText(reader.GetString(2) & vbCrLf)

End While

reader.Close()
conn.Close()



Catch ex As MySqlException
MessageBox.Show("Error")

End Try


End Sub

А теперь надо, чтоб результаты с датчика поступали. Запрос что-то вроде Dim query As String = "INSERT INTO pok3(vla, tem, data) values (результаты)". видимо цикл нужен, потому что таблица должна пополняться каждые 2 сек, как датчик работает.
22 май 13, 09:44    [14330762]     Ответить | Цитировать Сообщить модератору
 Re: Запрос из visual studio в mysql  [new]
Glory
Member

Откуда:
Сообщений: 104760
форум по mySQL - https://www.sql.ru/forum/mysql
форум по Basic - https://www.sql.ru/forum/visual-basic
22 май 13, 09:48    [14330778]     Ответить | Цитировать Сообщить модератору
 Re: Запрос из visual studio в mysql  [new]
Jovanny
Member

Откуда:
Сообщений: 1195
Что-то я не пойму. А вставить выполнение вставки в Вашу процедуру SerialPort1_DataReceived?

Типа такого.

Public Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim mydata As ComDataType = GetComData()

If mydata.vl <> "" Then
TextBox2.Text = mydata.vl

End If
If mydata.t <> "" Then
TextBox3.Text = mydata.t
End If

Dim conn As New MySqlConnection
conn.ConnectionString = "server=localhost;user='root';password='';database='kat'"

Dim query As String = "INSERT INTO pok3(vla, tem, data) values (mydata.vl, mydata.t, DateTime.Now.ToString("yyyy-mm-dd"))

Dim cmd As New MySqlCommand(query, conn)

conn.Open()
cmd.ExecuteScalar()
conn.Close()

End Sub
22 май 13, 09:54    [14330813]     Ответить | Цитировать Сообщить модератору
 Re: Запрос из visual studio в mysql  [new]
Jovanny
Member

Откуда:
Сообщений: 1195
Вернее

Dim query As String = "INSERT INTO pok3(vla, tem, data) values (mydata.vl, mydata.t, GETDATE())"
22 май 13, 09:56    [14330828]     Ответить | Цитировать Сообщить модератору
 Re: Запрос из visual studio в mysql  [new]
Гость333
Member

Откуда:
Сообщений: 3683
Jovanny
GETDATE()

У топикстартера mySQL, там нет GETDATE
22 май 13, 10:20    [14330961]     Ответить | Цитировать Сообщить модератору
 Re: Запрос из visual studio в mysql  [new]
Катя2105
Member

Откуда:
Сообщений: 2
Гость333, выдает ошибку Unknown column 'mydata.vl' in 'field list'
на cmd.ExecuteScalar()
22 май 13, 10:47    [14331132]     Ответить | Цитировать Сообщить модератору
 Re: Запрос из visual studio в mysql  [new]
Maxx
Member [скрыт]

Откуда:
Сообщений: 24290
Катя2105
Гость333, выдает ошибку Unknown column 'mydata.vl' in 'field list'
на cmd.ExecuteScalar()

Dim mydata As ComDataType = GetComData()

Видимо возращает другой набор полей ,посмотрите дебагером что у вас внутри mydata
22 май 13, 11:57    [14331696]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft SQL Server Ответить