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

Module ModulePublicModule 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 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
 
阅读更多
个人分类: .net技术
想对作者说点什么? 我来说一句

连接数据库代码

2012年06月28日 2KB 下载

LINQ返回DataTable

2013年03月01日 74KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭