＋设为首页 ＋添加到收藏夹
如題
Private iobj_conn As Data.OleDb.OleDbConnection
Private iobj_command As Data.OleDb.OleDbCommand
Private iobj_adapter As Data.OleDb.OleDbDataAdapter
Private idst_data As New DataSet("data_result")
聯接數據庫
Private Sub btn_connect_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_connect.Click
Try
Me.iobj_conn = New OleDb.OleDbConnection("Provider=MSDAORA.1;User ID=數據庫登陸名稱;Data Source=你的數據庫名稱;Password=登陸密碼")
Me.iobj_command = New OleDb.OleDbCommand
Me.iobj_adapter = New OleDb.OleDbDataAdapter
Me.iobj_conn.Open()
Windows.Forms.MessageBox.Show("l聯接成功!")
Catch lexp_sql As Exception
Throw lexp_sql
End Try
End Sub
顯示數據
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_load.Click
iobj_command.Connection = Me.iobj_conn
iobj_command.CommandText = "select * from customer"
iobj_command.CommandType = CommandType.Text
Me.iobj_adapter.SelectCommand = Me.iobj_command
Me.iobj_adapter.Fill(idst_data, "customer")
Me.dgd_result.DataSource = Nothing
Me.dgd_result.DataSource = idst_data.Tables("customer")
End Sub
插入數據
Private Sub btn_insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_insert.Click
Dim lstg_sql As New System.Text.StringBuilder(1000)
lstg_sql.Append(" insert into customer c values(" & Me.tbx_id.Text & ",999001,001,xxx,")
lstg_sql.Append(" JHZOU,null,D,sysdate , null, ")
lstg_sql.Append(" sysdate,sysdate,0,null) ")
Try
Me.iobj_command.CommandText = lstg_sql.ToString
Me.iobj_command.ExecuteNonQuery()
Catch lexp_sql As Exception
Throw lexp_sql
End Try
End Sub
刪除數據
Private Sub btn_delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_delete.Click
Dim lstg_sql As New System.Text.StringBuilder(1000)
Try
lstg_sql.Append(" delete from customer where customer_name = " & Me.tbx_bndno.Text & "")
Me.iobj_command.CommandText = lstg_sql.ToString
Me.iobj_command.ExecuteNonQuery()
Catch lexp_sql As Exception
Throw lexp_sql
End Try
End Sub
更新數據
Private Sub btn_updata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_updata.Click
Dim lstg_sql As New System.Text.StringBuilder(1000)
Try
lstg_sql.Append(" update customer set customer_id = " & Me.tbx_bndno.Text & "")
lstg_sql.Append(" where customer_id = 041206 ")
Me.iobj_command.CommandText = lstg_sql.ToString
Me.iobj_command.ExecuteNonQuery()
Catch lexp_sql As Exception
Throw lexp_sql
End Try
End Sub
你用的是什么数据库？
如果是SQL SERVER 的话，可用
system.data.sqlclient 相关的类来实现，不需要建立数据源的
