关闭

连接数据库,返回DataTable的函数

426人阅读 评论(0) 收藏 举报
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()
        
Return ConnectionString
End Function


End Module


Function getTableData(ByVal strCommandText As StringAs 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
 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:4149次
    • 积分:88
    • 等级:
    • 排名:千里之外
    • 原创:4篇
    • 转载:4篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档