Also ich hab im Sql eine db und möchte sie im Visual Studio.net angezeigt bekomm, wenn ich Button1 drück!
so gehst nicht, das private conn im Button ist blau unterkringelt:
Imports System.Web.UI
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports MySQLDriverCS
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Hier Benutzercode zur Seiteninitialisierung einfügen
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Private conn As MySQLDriverCS.MySQLConnection = New MySQLConnection(New MySQLConnectionString("xxx.xx.xx.xx", "lager_db", "root", "").AsString)
'Definition des Datenadapters
Private adapt As New MySQLDataAdapter()
'Definition eines Datasets
Private data As New DataSet()
Private Function utilDB()
'SQL Kommando definieren
Dim sql As String
sql = "Select * from lager1;"
'SQL ausführen
Dim cmd As New MySQLCommand(sql, conn)
'Datenadapter definieren
adapt.SelectCommand = cmd
adapt.Fill(Data, "lager1")
End Function
End Sub
End Class
so gehst nicht, das private conn im Button ist blau unterkringelt:
Imports System.Web.UI
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports MySQLDriverCS
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Hier Benutzercode zur Seiteninitialisierung einfügen
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Private conn As MySQLDriverCS.MySQLConnection = New MySQLConnection(New MySQLConnectionString("xxx.xx.xx.xx", "lager_db", "root", "").AsString)
'Definition des Datenadapters
Private adapt As New MySQLDataAdapter()
'Definition eines Datasets
Private data As New DataSet()
Private Function utilDB()
'SQL Kommando definieren
Dim sql As String
sql = "Select * from lager1;"
'SQL ausführen
Dim cmd As New MySQLCommand(sql, conn)
'Datenadapter definieren
adapt.SelectCommand = cmd
adapt.Fill(Data, "lager1")
End Function
End Sub
End Class