Question

我希望显示一个我的数据库表，在此代码工作后但现在不起作用，我不知道，因为它不起作用...

加载此表单时，我看不到任何表格...抱歉，我需要帮助... 哪里可以出错？

Imports MySql.Data.MySqlClient

Public Class inicio
Dim MysqlConn As MySqlConnection

Dim myCommand As New MySqlCommand
Dim updatecommand As New MySqlCommand
Dim deletecommand As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim myData As New DataTable
Dim SQL As String


Private Sub inicio_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    MysqlConn = New MySqlConnection()

    ' Define the SQL to grab data from table.

    SQL = "SELECT * FROM compras"

    'Connection String

    MysqlConn.ConnectionString = "server=localhost;" _
    & "user id=root;" _
    & "password=;" _
    & "database=comerciojuegos"

    ' Try, Catch, Finally
    Try

        MysqlConn.Open()

        myCommand.Connection = MysqlConn
        myCommand.CommandText = SQL

        myAdapter.SelectCommand = myCommand

        myAdapter.Fill(myData)

        DataGridView1.DataSource = myData

        'updatecommand = New MySqlCommand("update compras set id_compra=@id_compra,id_comprador=@id_comprador,id_producto=@id_producto,fecha_compra=@fecha_compra,detalles_compra=@detalles_compra where (id_compra=@id_compra)", MysqlConn)
        'updatecommand.Parameters.Add("@id_compra", MySqlDbType.Int16, 50, "id_compra")
        'updatecommand.Parameters.Add("@id_comprador", MySqlDbType.Int16, 50, "id_comprador")
        'updatecommand.Parameters.Add("@id_producto", MySqlDbType.Int16, 50, "id_producto")
        'updatecommand.Parameters.Add("@fecha_compra", MySqlDbType.Date, 50, "fecha_compra")
        'updatecommand.Parameters.Add("@detalles_compra", MySqlDbType.VarChar, 50, "detalles_compra")
        'myAdapter.UpdateCommand = updatecommand

        DataGridView1.Refresh()

    Catch myerror As MySqlException
        MessageBox.Show("Cannot connect to database: " & myerror.Message)
    Finally
        MysqlConn.Close()
        MysqlConn.Dispose()
    End Try
End Sub

从mysql BBDD vb.net无负载DataGridView

0 个答案: