＋设为首页 ＋添加到收藏夹
请大哥大姐们帮帮忙啊，我已经学五天了还没入门呢，要压抑死了啊。
做一个类先
Imports System.Data
Imports System.DBNull
Imports System.Data.SqlClient
Module Module1
Public objDataSet As DataSet
Public objDataAdpter As SqlDataAdapter
Public objSqlConnection As SqlConnection = New _
SqlConnection("server=localhost;database=dangan;integrated security=sspi")
Public Function GetDataFromDB(ByVal sqlstr As String) As DataSet
objDataSet = New DataSet
objDataSet.Clear()
实例化一个数据集对象
Try
objSqlConnection.Open()
打开数据库连接
objDataAdpter = New SqlDataAdapter(sqlstr, objSqlConnection)
将数据库的数据映射到数据适配器
objDataAdpter.Fill(objDataSet)
填充数据集的数据
objSqlConnection.Close()
关闭数据连接，这一点很重要
Catch
MsgBox("错误号：" & Err.Number & "错误描述：" & Err.Description)
End Try
Return objDataSet
objDataSet = Nothing
End Function
End Module
然后在FORM中写
Public Function GetSqlStr(ByVal str As String) As String
Return Replace(str, "", "")
End Function
这是FORM中的一个BUTTON按钮中的代码
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim connstr, delcmd As String
connstr = "server=localhost;database=dangan;integrated security=sspi"
delcmd = "delete from 基本档案 where 档号=" & GetSqlStr(ComboBox1.Text) & ""
这个是删除的例子，如果要添加或修改，只要把上面的SQL语句改成你要的就行了
Dim conn As SqlConnection, cmd As SqlCommand
conn = New SqlConnection(connstr)
conn.Open()
cmd = New SqlCommand(delcmd, conn)
cmd.ExecuteNonQuery()
conn.Close()
MsgBox("数据已经成功删除！！", MsgBoxStyle.OKOnly, "信息提示")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
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
