kann ein Windows Form-Programm nicht debuggen

Question

Imports mysql.data.MySqlClient 
Public Class Form1 
    Private conexion As 
     New MySqlConnection("Server=10.0.0.12;Database=servicioinventariopiramide; 
      Uid=pabloponce;Pwd=****;") 
    Dim DAFacturas As New MySqlDataAdapter("call sp_FacturasConsultar()", conexion) 
    Dim DSFacturas As New DataSet() 

DAFacturas.fill(DSFacturas, "Facturas") 
grdfacturas.datasource=DSFacturas 
grdfacturas.datamember=DSFacturas.table("Facturas").tablename 
End Class 

sagt, dass 6,7,8 auf der Linie, wo es heißt ‚DAFacturas‘, ‚grdfacturas‘ sagt, dass ther ist eine ‚Erklärung zu erwarten‘

Answer 1

Sie nicht ausführbar setzen können Code direkt in einer Klasse. Der gesamte ausführbare Code sollte in Methoden innerhalb der Klasse enthalten sein. Wenn Sie diesen Code ausführen müssen, wenn das Formular geladen wird, dann verwenden Sie die OnLoad Überschreibung:

Imports mysql.data.MySqlClient 

Public Class Form1 

    Protected Overrides Sub OnLoad(e As EventArgs) 
     MyBase.OnLoad(e) 

     Dim conexion As New MySqlConnection("Server=10.0.0.12;Database=servicioinventariopiramide; 
      Uid=pabloponce;Pwd=****;") 
     Dim DAFacturas As New MySqlDataAdapter("call sp_FacturasConsultar()", conexion) 
     Dim DSFacturas As New DataSet() 

     DAFacturas.fill(DSFacturas, "Facturas") 
     grdfacturas.datasource=DSFacturas 
     grdfacturas.datamember=DSFacturas.table("Facturas").tablename 
    End Sub 

End Class