none
谁帮我写一段纯代码 RRS feed

答案

  • http://www.mybuffet.cn/html/0/291.htm
    2011 c# mvp China. *George读起来像不像“饺子”?我爱吃饺子,我叫George。
    • 已标记为答案 IT-民工 2011年3月30日 3:33
    2011年3月30日 2:49
  • #Region "绑定数据并显示数据"
    
     Private Sub FillData()
    
      Dim GetTableString As String = "Select * From 表名“
     Dim StrConn As SqlConnection
    
     Dim objDS As DataSet
    
     Dim objAdapter As SqlDataAdapter
    
     Dim table As DataTable
    
      Try
    
       StrConn= New SqlConnection("Data Source=服务器名;Initial Catalog=数据库名;Integrated Security=SSPI;Connection Timeout=15")
    
    '连接字符串请参考MSDN上的帮助
    
       StrConn.Open()
    
       Dim objAdapter As New SqlDataAdapter(GetTableString, StrConn)
    
       Dim objDS As New DataSet
    
       objAdapter.Fill(objDS)
    
       objAdapter.Dispose()
    
       StrConn.Close()
    
       table = objDS.Tables(0)
    
       DataGridView1.DataSource = table
    
      Catch ex As SqlClient.SqlException
    
       MessageBox.Show(ex.Message)
    
      End Try
    
     End Sub
    
    #End Region
    
    
    以上应该就是大致你要的内容了。
    • 已标记为答案 IT-民工 2011年3月30日 3:33
    2011年3月30日 2:54

全部回复

  • http://www.mybuffet.cn/html/0/291.htm
    2011 c# mvp China. *George读起来像不像“饺子”?我爱吃饺子,我叫George。
    • 已标记为答案 IT-民工 2011年3月30日 3:33
    2011年3月30日 2:49
  • #Region "绑定数据并显示数据"
    
     Private Sub FillData()
    
      Dim GetTableString As String = "Select * From 表名“
     Dim StrConn As SqlConnection
    
     Dim objDS As DataSet
    
     Dim objAdapter As SqlDataAdapter
    
     Dim table As DataTable
    
      Try
    
       StrConn= New SqlConnection("Data Source=服务器名;Initial Catalog=数据库名;Integrated Security=SSPI;Connection Timeout=15")
    
    '连接字符串请参考MSDN上的帮助
    
       StrConn.Open()
    
       Dim objAdapter As New SqlDataAdapter(GetTableString, StrConn)
    
       Dim objDS As New DataSet
    
       objAdapter.Fill(objDS)
    
       objAdapter.Dispose()
    
       StrConn.Close()
    
       table = objDS.Tables(0)
    
       DataGridView1.DataSource = table
    
      Catch ex As SqlClient.SqlException
    
       MessageBox.Show(ex.Message)
    
      End Try
    
     End Sub
    
    #End Region
    
    
    以上应该就是大致你要的内容了。
    • 已标记为答案 IT-民工 2011年3月30日 3:33
    2011年3月30日 2:54
  • 多谢,如果是多个虚拟表该怎么做,我刚毕业,很不熟练。真正写起项目才知道很多不懂,请指教。
    2011年3月30日 3:10
  • 谢谢,我会认真读你的程序
    2011年3月30日 3:12
  • 你这代码太高级了,我是初学者,看不懂啊。不过我收藏了。关注你网站的内容
    2011年3月30日 3:15