Hi there,
I had wrote a simple program for displaying the voting result from sms, all the sms will be saved in mySQL database. I previous uses this code and it is working fine, but for now, suddenly just unable to work properly. When i click on the start button but it is unable to retreive the latest data from the database. Can anyone please help?
*
Here is my code*
**
Imports MySql.Data.MySqlClient
Imports MySql.Data
Imports System.Data
Imports System.Data.Odbc.OdbcDataAdapter
Imports System.Data.Odbc.OdbcDataReader
Imports System.Data.Odbc
Imports System
Imports System.IO
Imports System.Configuration
Imports MySql.Data.MySqlClient.MySqlDataReader
Imports System.Drawing.Size
Imports System.Drawing
Public Class Form1
Dim myCommand As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim myData As New DataTable
Dim myData2 As New DataTable
Dim myData3 As New DataTable
Dim myData4 As New DataTable
Dim myData5 As New DataTable
Dim myData6 As New DataTable
Dim SQL As String
Dim SQL2 As String
Dim SQL3 As String
Dim SQL4 As String
Dim SQL5 As String
Dim SQL6 As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label11.Visible = False
Label10.Visible = False
Label9.Visible = False
Label20.Visible = False
Label19.Visible = False
Label18.Visible = False
Label17.Visible = False
Label16.Visible = False
Label15.Visible = False
Label14.Visible = False
Label13.Visible = False
Label12.Visible = False
btnstart.Enabled = False
btnedit.Enabled = False
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
End
End Sub
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstart.Click
Dim MysqlConn As MySqlConnection
MysqlConn = New MySqlConnection()
' Define the SQL to grab data from table.
SQL = "SELECT count('content') FROM loglog where content = 'M1'"
'Connection String
MysqlConn.ConnectionString = "server=localhost;" _
& "user id=root;" _
& "password=;" _
& "database=vgsmdb"
' Try, Catch, Finally
Try
MysqlConn.Open()
myCommand.Connection = MysqlConn
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData)
DataGridView1.DataSource = myData
Catch myerror As MySqlException
MessageBox.Show("Cannot connect to database: " & myerror.Message)
Finally
MysqlConn.Close()
MysqlConn.Dispose()
End Try
' Define the SQL to grab data from table.
SQL2 = "SELECT count('content') FROM loglog where content = 'M2'"
'Connection String
MysqlConn.ConnectionString = "server=localhost;" _
& "user id=root;" _
& "password=;" _
& "database=vgsmdb"
' Try, Catch, Finally
Try
MysqlConn.Open()
myCommand.Connection = MysqlConn
myCommand.CommandText = SQL2
myAdapter.SelectCommand = myCommand
myAdapter.Fill(myData2)
DataGridView2.DataSource = myData2
Catch myerror As MySqlException
MessageBox.Show("Cannot connect to database: " & myerror.Message)
Finally
MysqlConn.Close()
MysqlConn.Dispose()
End Try
' Define the SQL to grab data from table.
SQL3 = "SELECT count('content') FROM loglog where content = 'M3'"
'Connection String
MysqlConn.ConnectionString = "server=localhost;" _
& "user id=root;" _
& "password=;"
No one has replied yet! Why not be the first?
Sign in or Join us (it's free).