MYSQL - VB.net 上的数据集如何?
How can dataset on MYSQL - VB.net?
我正在尝试使用 DataSet()
保存查询
正如您在它所说的部分中看到的那样:'
here dataset i dont know how it
那应该是我需要的是OleDB中的东西
con.Open()
adaptadordatos.Fill(conjuntoDatos, "Alumnos")
con.Close()
但我使用的是 MYSQL vb.net 2010 我没有找到太多相关文档。
我可以使用好的指南 mysql - vb.net
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim Conexion As New MySql.Data.MySqlClient.MySqlConnection
Dim CadenaSQL As String = "SELECT * FROM Alumnos ORDER BY nombre"
Dim CadenaConexion As String = "Data Source=localhost;" & _
"Database=" & "NuevaBD" & ";" & _
"User Id=root;Password="
Dim Comando As New MySql.Data.MySqlClient.MySqlCommand(CadenaSQL)
Conexion = New MySql.Data.MySqlClient.MySqlConnection(CadenaConexion)
Try
Dim conjuntoDatos As New DataSet()
Conexion.Open()
'here dataset i dont know how it
'Comando.Fill(conjuntoDatos, "Alumnos")
Conexion.Close()
Dim tabla As DataTable
tabla = conjuntoDatos.Tables("Alumnos")
Dim fila As DataRow
Me.ListaAlumnos.Items.Clear()
For Each fila In tabla.Rows
' Muestra los datos en un ListBox
Me.ListaAlumnos.Items.Add(fila.Item("Nombre") & " " & fila.Item("Apellidos"))
Next
Catch ex As MySql.Data.MySqlClient.MySqlException
MsgBox("No se ha podido establecer " & vbCrLf & _
"la conexión con la base de datos.", MsgBoxStyle.Critical)
Finally
Select Case Conexion.State
Case ConnectionState.Open
Conexion.Close()
End Select
End Try
End Sub
Fill()
是 数据适配器 上的方法,而不是 Command
上的方法。即使有语言障碍,这里似乎也暗示了这一点:
adaptadordatos.Fill(conjuntoDatos, "Alumnos")
所以创建一个数据适配器...
Dim myAdapter As MySqlDataAdapter = New MySqlDataAdapter(CadenaSQL, Conexion)
myAdapter.Fill(conjuntoDatos, "Alumnos")
我正在尝试使用 DataSet()
保存查询
正如您在它所说的部分中看到的那样:'
here dataset i dont know how it
那应该是我需要的是OleDB中的东西
con.Open()
adaptadordatos.Fill(conjuntoDatos, "Alumnos")
con.Close()
但我使用的是 MYSQL vb.net 2010 我没有找到太多相关文档。 我可以使用好的指南 mysql - vb.net
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim Conexion As New MySql.Data.MySqlClient.MySqlConnection
Dim CadenaSQL As String = "SELECT * FROM Alumnos ORDER BY nombre"
Dim CadenaConexion As String = "Data Source=localhost;" & _
"Database=" & "NuevaBD" & ";" & _
"User Id=root;Password="
Dim Comando As New MySql.Data.MySqlClient.MySqlCommand(CadenaSQL)
Conexion = New MySql.Data.MySqlClient.MySqlConnection(CadenaConexion)
Try
Dim conjuntoDatos As New DataSet()
Conexion.Open()
'here dataset i dont know how it
'Comando.Fill(conjuntoDatos, "Alumnos")
Conexion.Close()
Dim tabla As DataTable
tabla = conjuntoDatos.Tables("Alumnos")
Dim fila As DataRow
Me.ListaAlumnos.Items.Clear()
For Each fila In tabla.Rows
' Muestra los datos en un ListBox
Me.ListaAlumnos.Items.Add(fila.Item("Nombre") & " " & fila.Item("Apellidos"))
Next
Catch ex As MySql.Data.MySqlClient.MySqlException
MsgBox("No se ha podido establecer " & vbCrLf & _
"la conexión con la base de datos.", MsgBoxStyle.Critical)
Finally
Select Case Conexion.State
Case ConnectionState.Open
Conexion.Close()
End Select
End Try
End Sub
Fill()
是 数据适配器 上的方法,而不是 Command
上的方法。即使有语言障碍,这里似乎也暗示了这一点:
adaptadordatos.Fill(conjuntoDatos, "Alumnos")
所以创建一个数据适配器...
Dim myAdapter As MySqlDataAdapter = New MySqlDataAdapter(CadenaSQL, Conexion)
myAdapter.Fill(conjuntoDatos, "Alumnos")