koreets2011
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите где ошибка, в упор не вижу.
Код:
Imports MySql.Data.MySqlClient
Imports Microsoft.VisualBasic
Imports System
Imports System.Threading
Public Class Form1
Dim conn As New MySqlConnection("Server=localhost;User id=root;password=17241804;database=srv50777_taxi69")
Dim cmd As New MySqlCommand
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Taxi69_onlineTableAdapter.Fill(Me.Srv50777_taxi69DataSet.taxi69_online)
conn.Open()
cmd.Connection = conn
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim currentID As String = DataGridView1.CurrentCell.Value.ToString()
Dim Error_ID As String
Dim reader As MySqlDataReader
cmd.CommandText = "SELECT status FROM `taxi69_online` WHERE `id`='" & currentID & "'"
reader = cmd.ExecuteReader()
reader.Read()
Error_ID = reader.GetValue(0)
If Error_ID = Nothing Then
MsgBox(Error_ID) ' Убеждаюсь, что Error_ID = Nothing
cmd.CommandText = "UPDATE `taxi69_online` SET `status`='Принят' WHERE `id`='" & currentID & "'" 'Никак не хочет в базе запись обновить!!!
Me.Taxi69_onlineTableAdapter.Fill(Me.Srv50777_taxi69DataSet.taxi69_online)
reader.Close()
Else
MsgBox(Error_ID)' Убеждаюсь, что Error_ID имеет значения reader.GetValue(0)
reader.Close()
End If
Me.Taxi69_onlineTableAdapter.Fill(Me.Srv50777_taxi69DataSet.taxi69_online) ' На всякий случай
reader.Close() ' На всякий случай
End Sub
End Class
|
Причем тупо проверяю
Код:
Imports MySql.Data.MySqlClient
Imports Microsoft.VisualBasic
Imports System
Imports System.Threading
Public Class Form1
Dim conn As New MySqlConnection("Server=localhost;User id=root;password=17241804;database=srv50777_taxi69")
Dim cmd As New MySqlCommand
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Taxi69_onlineTableAdapter.Fill(Me.Srv50777_taxi69DataSet.taxi69_online)
conn.Open()
cmd.Connection = conn
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim currentID As String = DataGridView1.CurrentCell.Value.ToString()
Dim Error_ID As String
Dim reader As MySqlDataReader
cmd.CommandText = "SELECT status FROM `taxi69_online` WHERE `id`='" & currentID & "'"
cmd.CommandText = "UPDATE `taxi69_online` SET `status`='Принят' WHERE `id`='" & currentID & "'"
Me.Taxi69_onlineTableAdapter.Fill(Me.Srv50777_taxi69DataSet.taxi69_online)
reader.Close()
End Sub
End Class
|
Запись в базе обновилась. |
