Imports System.Data.SqlClient
Public Class zjck
Inherits System.Windows.Forms.Form
Dim conn As New SqlClient.SqlConnection("Server=SQLEXPRESS;DataBase=sq;Uid=sq;Pwd=;")
Dim comm As New SqlCommand
Dim ds As New DataSet
Dim da As New SqlDataAdapter
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private Sub frmXzSj_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Conn.State = ConnectionState.Closed Then
Conn.Open() '执行到这句出现提示: 运行库遇到了错误。此错误的地址为 0x79fca0da,在线程 0x720 上。错误代码为 0xc0000005。此错误可能是 CLR 中的 bug,或者是用户代码的不安全部分或不可验证部分中的 bug。此 bug 的常见来源包括用户对 COM-interop 或 PInvoke 的封送处理错误,这些错误可能会损坏堆栈。
End If
comm.Connection = Conn
comm.CommandType = CommandType.Text
comm.CommandText = "select * from biao1 "
da.SelectCommand = comm
da.Fill(ds, "biao1")
DataGridView1.DataSource = ds.Tables("biao1")
If Conn.State = ConnectionState.Open Then
Conn.Close()
End If
End Sub
..................
End Class