filmov
tv
Simple Vb.net mysql database connection in module

Показать описание
Just get the Connection String
Dim ConnString As String = ""
Public Function ExecuteSyntax(ByVal mySqlString As String, ByVal myDataGrid As DataGridView)
Dim sqlConnection As New SqlClient.SqlConnection(ConnString)
Dim sqlDataAdapter As New SqlClient.SqlDataAdapter
Dim myDataSet As New DataSet
sqlConnection.Open()
Try
sqlDataAdapter.SelectCommand = New SqlClient.SqlCommand(mySqlString, sqlConnection)
sqlDataAdapter.Fill(myDataSet)
myDataGrid.DataSource = myDataSet.Tables(0)
Catch ex As Exception
End Try
sqlConnection.Dispose()
sqlDataAdapter.Dispose()
myDataSet.Dispose()
Return True
End Function
Dim ConnString As String = ""
Public Function ExecuteSyntax(ByVal mySqlString As String, ByVal myDataGrid As DataGridView)
Dim sqlConnection As New SqlClient.SqlConnection(ConnString)
Dim sqlDataAdapter As New SqlClient.SqlDataAdapter
Dim myDataSet As New DataSet
sqlConnection.Open()
Try
sqlDataAdapter.SelectCommand = New SqlClient.SqlCommand(mySqlString, sqlConnection)
sqlDataAdapter.Fill(myDataSet)
myDataGrid.DataSource = myDataSet.Tables(0)
Catch ex As Exception
End Try
sqlConnection.Dispose()
sqlDataAdapter.Dispose()
myDataSet.Dispose()
Return True
End Function