Module ModulePublic
Module ModulePublic
Public ConnectionString As String = "workstation id=localhost;packet size=4096;user id=hncrecsu;data source=localhost;persist security info=True;initial catalog=hncre200511;password=hn410007csu"
Public Function ReturnConnectionString()Function ReturnConnectionString()
Return ConnectionString
End Function
End Module
Function getDataTable() Function getTableData(ByVal strCommandText As String) As DataTable '连接数据库,并根据指定的sqlSting,把数据读到DataGridView中
Dim myConnectionString As String '用来连接数据库
Dim myDataTable As New DataTable
myConnectionString = ReturnConnectionString()
Dim myConnection As New SqlConnection(myConnectionString)
Dim myCommand As New SqlCommand(strCommandText)
myCommand.Connection = myConnection
myConnection.Open()
Dim myAdapter As New Data.SqlClient.SqlDataAdapter
myAdapter = New Data.SqlClient.SqlDataAdapter(strCommandText, myConnection)
myAdapter.Fill(myDataTable)
myConnection.Close()
getDataTable = myDataTable
End Function
Public ConnectionString As String = "workstation id=localhost;packet size=4096;user id=hncrecsu;data source=localhost;persist security info=True;initial catalog=hncre200511;password=hn410007csu"
Public Function ReturnConnectionString()Function ReturnConnectionString()
Return ConnectionString
End Function
End Module
Function getDataTable() Function getTableData(ByVal strCommandText As String) As DataTable '连接数据库,并根据指定的sqlSting,把数据读到DataGridView中
Dim myConnectionString As String '用来连接数据库
Dim myDataTable As New DataTable
myConnectionString = ReturnConnectionString()
Dim myConnection As New SqlConnection(myConnectionString)
Dim myCommand As New SqlCommand(strCommandText)
myCommand.Connection = myConnection
myConnection.Open()
Dim myAdapter As New Data.SqlClient.SqlDataAdapter
myAdapter = New Data.SqlClient.SqlDataAdapter(strCommandText, myConnection)
myAdapter.Fill(myDataTable)
myConnection.Close()
getDataTable = myDataTable
End Function