level 1
shenjie1207
楼主
Public Class Form1
Dim ds As New DataSet
Dim conn As New SqlConnection
Dim da As SqlDataAdapter
Dim str As String
Dim 主菜单 As Object
Dim Sql As Object
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
conn = New SqlConnection("Data Source=(local);Initial Catalog=dbo.商务租赁表;uid=sa;password=shenjie1207;")
conn.Open()
da = New SqlDataAdapter("SELECT * FROM 商务租赁表 LIKE '%" & Me.TextBox1.Text & "%' ", conn)
ds = New DataSet()
da.Fill(ds, "商务租赁表")
Catch
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Hide()
End Sub
Private Sub DataGridView1_CellContentClick_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
DataGridView1.DataSource = ds.Tables("商务租赁表")
End Sub
End Class
连不上自己本地的数据库?
2016年12月22日 08点12分
1
Dim ds As New DataSet
Dim conn As New SqlConnection
Dim da As SqlDataAdapter
Dim str As String
Dim 主菜单 As Object
Dim Sql As Object
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
conn = New SqlConnection("Data Source=(local);Initial Catalog=dbo.商务租赁表;uid=sa;password=shenjie1207;")
conn.Open()
da = New SqlDataAdapter("SELECT * FROM 商务租赁表 LIKE '%" & Me.TextBox1.Text & "%' ", conn)
ds = New DataSet()
da.Fill(ds, "商务租赁表")
Catch
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Hide()
End Sub
Private Sub DataGridView1_CellContentClick_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
DataGridView1.DataSource = ds.Tables("商务租赁表")
End Sub
End Class
连不上自己本地的数据库?