求VB.net访问数据库的例子
包括连接、查询，更新，删除的简单例子，谢谢！ 问题点数：100、回复次数：18Top
1 楼lesleyc（）回复于 2005-06-21 15:43:52 得分 10
连接
<%@Import Namespace=System.Data%>
<%@Import Namespace=System.Data.Oledb%>
<script language="vb" runat="Server">
Sub Page_Load(sender As Object, E As EventArgs)
Dim myconn As OledbConnection=New OledbConnection("Provider=SQLOLEDB; Data Source=server;uid=sa; pwd=; Initial Catalog=ASZFZX_Query")
myconn.open
Dim mycommand as Oledbcommand =new Oledbcommand("select * from T_GJJZC",myconn)
Dim myReader As OleDbDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
dim ds as dataset
Datagrid1.DataSource =myreader
Datagrid1.DataBind()
End Sub
</script>Top
2 楼lesleyc（）回复于 2005-06-21 15:45:33 得分 0
其余的以此类推Top
3 楼huangjianyou（小健）回复于 2005-06-21 15:50:36 得分 10
建议去下载一两个VB.NET的小型数据库程序，里面有很多数据库的东西学到的。例如：
http://cn700.com/Class/5_1.html
http://www.17xxz.com/SoftView/SoftView_6242.html
等等，自己搜索也很多的。
^_^Top
4 楼baibai520（拜拜）回复于 2005-06-21 16:09:27 得分 15
樓主我的給你看看
不知道意思的問我就可以了
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=gis;Data Source=gissjdev;Password=gis")
Me.iobj_command = New OleDb.OleDbCommand
Me.iobj_adapter = New OleDb.OleDbDataAdapter
Me.iobj_conn.Open()
Windows.Forms.MessageBox.Show("Connect Success!")
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 gis.TBGIS_CUSTOMER"
iobj_command.CommandType = CommandType.Text
Me.iobj_adapter.SelectCommand = Me.iobj_command
Me.iobj_adapter.Fill(idst_data, "TBGIS_CUSTOMER")
Me.dgd_result.DataSource = Nothing
Me.dgd_result.DataSource = idst_data.Tables("TBGIS_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 gis.tbgis_customer c values('G'," & Me.tbx_bndno.Text & ",'G-wrod','ty',2345,")
lstg_sql.Append(" 'lie',456, Systemdata,'yes','meiyou','82287548','shenzhen',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_update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_update.Click
Dim lstg_sql As New System.Text.StringBuilder(1000)
Try
lstg_sql.Append(" update gis.tbgis_customer set customer_ID = '" & Me.tbx_bndno.Text & "'")
lstg_sql.Append(" where customer_ID = '99' ")
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 gis.tbgis_customer where division_code= '" & 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 ‘ 刪除數據
Top
5 楼zdq801104（【☆这个杀手不太冷☆】）回复于 2005-06-21 17:08:40 得分 0
非常感谢各位的回答，我先试试！Top
6 楼zdq801104（【☆这个杀手不太冷☆】）回复于 2005-06-21 17:37:12 得分 0
我还想问一下，我想知道select 查询出来的记录，要怎么写呢？请各位再帮帮忙，谢谢！Top
7 楼zdq801104（【☆这个杀手不太冷☆】）回复于 2005-06-21 17:37:42 得分 0
补充一下，是想知道查询出来的记录数Top
8 楼huangjianyou（小健）回复于 2005-06-21 17:55:07 得分 5
select count(*) from tablename
^_^Top
9 楼gjmcg（Jimmy）回复于 2005-06-21 18:22:25 得分 10
sqlcnn.ConnectionString = "server=scc04;database=hardware;integrated security=sspi;"
sqlcnn.Open()
sqlcmd.Connection = sqlcnn
更新 If MessageBox.Show("确定要更新?", "更改用户资料-确认", MessageBoxButtons.OKCancel) = DialogResult.OK Then
If Trim(txt_ip.Text) = "" Then
MessageBox.Show("没有找到记录")
Return
End If
Dim str_User As String
str_User = "update computer_Mstr set User_Dept='" & cb_Dept.Text & "',Computer_User='" & txt_User.Text & "',Install_Date='" & dtp_install.Text & "',maintain_Cycle='" & txt_cycle.Text & "',status='" & cb_status1.Text & "',memo='" & txt_Memo.Text & "' where computer_No='" & txt_ip.Text & "'"
sqlcmd.CommandText = str_User
sqlcmd.ExecuteNonQuery()
MsgBox("更改成功")
End If
If MessageBox.Show("确定要删除吗?", "书籍删除-确认", MessageBoxButtons.OKCancel) = DialogResult.OK Then
Dim str As String
str = " delete from computer_Detail where Part_No='" & txt_No2.Text & "'"
txt_No2.Text = ""
txt_Brand2.Text = ""
txt_Part2.Text = ""
sqlcmd.CommandText = str
sqlcmd.ExecuteNonQuery()
MsgBox("删除成功!!")
End If
呵呵，简单的
Top
10 楼baibai520（拜拜）回复于 2005-06-21 18:23:24 得分 5
Private Sub btn_select_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(" select * from gis.tbgis_customer where division_code= '" & 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 SubTop
11 楼avon520（阿云）回复于 2005-06-21 20:21:34 得分 3
呵呵……都给楼上的朋友抢了Top
12 楼zdq801104（【☆这个杀手不太冷☆】）回复于 2005-06-21 20:24:14 得分 0
谢谢各位的回答，我想知道知道是否与一个属性能直接知道我SELECT语句之后的记录总数，难道还要用
select count(*) from tablename吗？我感觉这样有点麻烦，以前用VB6或DELPHI的的时候有recorde这个属性，但是.net好象没有这个，请各位再帮帮忙，3Q！
Top
13 楼AntingZ（夕惕若）回复于 2005-06-21 20:37:03 得分 30
如果仅仅序号记录数量,用select count(*) from tablename 的效率比其他的高
如果你需要记录数量的同时需要数据的话
select * from tablename
然后用datatable1.Rows.Count()来得到记录数量,这样
Top
14 楼weng5134（独自看月亮的小男孩）回复于 2005-06-21 21:18:43 得分 2
学习当中!Top
15 楼zdq801104（【☆这个杀手不太冷☆】）回复于 2005-06-22 07:58:34 得分 0
TO AntingZ(夕惕若)
我怎么找不到datatable1这个控件呀？我就是想得到数据的同时也希望得到记录数Top
16 楼AntingZ（夕惕若）回复于 2005-06-22 08:05:10 得分 5
Dim ds As New DataSet
SqlDataAdapter1.Fill(ds)
行数 = ds.Tables(0).Rows.Count
'datatable1=ds.tables(0)Top
17 楼zeusvenus（）回复于 2005-06-22 08:30:24 得分 5
datatable1不是控件,是DATASET的一个子类Top
18 楼zdq801104（【☆这个杀手不太冷☆】）回复于 2005-06-22 08:51:23 得分 0
谢谢各位大侠的指点，我明白了，3Q，揭贴！Top
