锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net引用数据库 vb如何调用数据库

IT技术enabled

vb.net 使用模块连接数据库你说这么一大篇全是业务逻辑，没说明你遇到的技术性问题在哪
.net自带的config文件来配置连接字符串，比ini好N倍 ， 如果你非要用ini那么自己解决问题
检测是否能连接用Connection.Open加try catch就可以
vb.net 中如何使用SQL语句查询数据库中的数据1、首先打开Visual Studio 2008代码窗口vb.net引用数据库，添加引用 。
2、输入以下代码vb.net引用数据库：Public conn1As SqlConnection = New SqlConnection。
3、声明关键字 Publicvb.net引用数据库；（因为是全局变量vb.net引用数据库 ， 所以用Public 来声明） 。
4、如果SQL 数据库就在本机，则用以下代码连接 。
5、如果代码太长，影响可读性，可以用空格加"_"后，回车换行即可 。
如何在VB.net中连接oracle数据库在web.config中配置：
’连接oracle
dim
strconnect
as
string
=
system.web.configuration.webconfigurationmanager.connectionstrings("conn").tostring()
dim
conn
as
oledb.oledbconnection
=
new
system.data.oledb.oledbconnection(strconnect)
’返回数据
public
function
gettable(byval
sql)
conn.open()
dim
comm
as
oledb.oledbcommand
=
new
oledb.oledbcommand(sql,
conn)
dim
da
as
oledb.oledbdataadapter
=
new
oledb.oledbdataadapter(comm)
dim
dt
as
system.data.datatable
=
new
system.data.datatable()
da.fill(dt)
conn.close()
return
dt
end
function
’返回受影响的行数
public
function
impactdate(byval
sql)
conn.open()
dim
comm
as
oledb.oledbcommand
=
new
oledb.oledbcommand(sql,
conn)
dim
i
as
integer
=
comm.executenonquery
return
i
end
function
vb.net数据库操作参考一下下面这段代码就可以了 。
ImportsSystem.Data
'引入数据库操作类命名空间
ImportsSystem.Data.OleDb
'引入ADO.NET操作命名空间
PublicClassFrmModifystInfo
InheritsSystem.Windows.Forms.Form
PublicADOcmdAsOleDbDataAdapter
PublicdsAsDataSet=NewDataSet()
'建立DataSet对象
PublicmytableAsData.DataTable
'建立表单对象
PublicmyrowAsData.DataRow
'建立数据行对象
PublicrownumberAsInteger
'定义一个整型变量来存放当前行数
PublicSearchSQLAsString
PubliccmdAsOleDbCommandBuilder
'======================================================
#Region"Windows窗体设计器生成的代码"
#EndRegion
'======================================================
PrivateSubFrmModifystInfo_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.Load
'窗体的载入
TxtSID.Enabled=False
TxtName.Enabled=False
ComboSex.Enabled=False
TxtBornDate.Enabled=False
TxtClassno.Enabled=False
TxtRuDate.Enabled=False
TxtTel.Enabled=False
TxtAddress.Enabled=False
TxtComment.Enabled=False'设置信息为只读
DimtablenameAsString="student_Info "
SearchSQL="select*fromstudent_Info"
ExecuteSQL(SearchSQL,tablename)'打开数据库
ShowData()'显示记录
EndSub
PrivateSubShowData()
'在窗口中的textbox中显示数据
myrow=mytable.Rows.Item(rownumber)
TxtSID.Text=myrow.Item(0).ToString
TxtName.Text=myrow.Item(1).ToString
ComboSex.Text=myrow.Item(2).ToString
TxtBornDate.Text=Format(myrow.Item(3),"yyyy-MM-dd ")
TxtClassno.Text=myrow.Item(4).ToString
TxtTel.Text=myrow.Item(5).ToString
TxtRuDate.Text=Format(CDate(myrow.Item(6)),"yyyy-MM-dd ")
TxtAddress.Text=myrow.Item(7).ToString
TxtComment.Text=myrow.Item(8).ToString
EndSub
PrivateSubBtFirst_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtFirst.Click
'指向第一条数据
rownumber=0
ShowData()
EndSub
PrivateSubBtPrev_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtPrev.Click
'指向上一条数据
BtNext.Enabled=True
rownumber=rownumber-1
Ifrownumber0Then
rownumber=0'如果到达记录的首部，行号设为零
BtPrev.Enabled=False
EndIf
ShowData()
EndSub
PrivateSubBtNext_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtNext.Click
'指向上一条数据
BtPrev.Enabled=True
rownumber=rownumber1
Ifrownumbermytable.Rows.Count-1Then
rownumber=mytable.Rows.Count-1'判断是否到达最后一条数据
BtNext.Enabled=False
EndIf
ShowData()
EndSub
PrivateSubBtLast_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtLast.Click
'指向最后一条数据
rownumber=mytable.Rows.Count-1
ShowData()
EndSub
PrivateSubBtDelete_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtDelete.Click
【vb.net引用数据库 vb如何调用数据库】mytable.Rows.Item(rownumber).Delete()'删除记录
IfMsgBox( "确定要删除改记录吗？ ",MsgBoxStyle.OKCancelvbExclamation,"警告 ")=MsgBoxResult.OKThen
cmd=NewOleDbCommandBuilder(ADOcmd)
'使用自动生成的SQL语句
ADOcmd.Update(ds,"student_Info ")
BtNext.PerformClick()
EndIf
EndSub
PrivateSubBtModify_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtModify.Click
TxtSID.Enabled=False'关键字段只读
TxtName.Enabled=True'可读写
ComboSex.Enabled=True
TxtBornDate.Enabled=True
TxtClassno.Enabled=True
TxtRuDate.Enabled=True
TxtTel.Enabled=True
TxtAddress.Enabled=True
TxtComment.Enabled=True
EndSub
PrivateSubBtUpdate_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtUpdate.Click
IfNotTesttxt(TxtName.Text)Then
MsgBox( "请输入姓名！ ",vbOKOnlyvbExclamation,"警告 ")
TxtName.Focus()
ExitSub
EndIf
IfNotTesttxt(ComboSex.Text)Then
MsgBox( "请选择性别！ ",vbOKOnlyvbExclamation,"警告 ")
ComboSex.Focus()
ExitSub
EndIf
IfNotTesttxt(TxtClassno.Text)Then
MsgBox( "请选择班号！ ",vbOKOnlyvbExclamation,"警告 ")
TxtClassno.Focus()
ExitSub
EndIf
IfNotTesttxt(TxtTel.Text)Then
MsgBox( "请输入联系电话！ ",vbOKOnlyvbExclamation,"警告 ")
TxtTel.Focus()
ExitSub
EndIf
IfNotTesttxt(TxtAddress.Text)Then
MsgBox( "请输入家庭住址！ ",vbOKOnlyvbExclamation,"警告 ")
TxtAddress.Focus()
ExitSub
EndIf
IfNotIsNumeric(Trim(TxtSID.Text))Then
MsgBox( "请输入数字学号！ ",vbOKOnlyvbExclamation,"警告 ")
ExitSub
TxtSID.Focus()
EndIf
IfNotIsDate(TxtBornDate.Text)Then
MsgBox( "出生时间应输入日期格式（yyyy-mm-dd）！ ",vbOKOnlyvbExclamation,"警告 ")
ExitSub
TxtBornDate.Focus()
EndIf
IfNotIsDate(TxtRuDate.Text)Then
MsgBox( "入校时间应输入日期格式（yyyy-mm-dd）！ ",vbOKOnlyvbExclamation,"警告 ")
TxtRuDate.Focus()
ExitSub
EndIf
myrow.Item(0)=Trim(TxtSID.Text)
myrow.Item(1)=Trim(TxtName.Text)
myrow.Item(2)=Trim(ComboSex.Text)
myrow.Item(3)=Trim(TxtBornDate.Text)
myrow.Item(4)=Trim(TxtClassno.Text)
myrow.Item(5)=Trim(TxtTel.Text)
myrow.Item(6)=Trim(TxtRuDate.Text)
myrow.Item(7)=Trim(TxtAddress.Text)
myrow.Item(8)=Trim(TxtComment.Text)
mytable.GetChanges()
cmd=NewOleDbCommandBuilder(ADOcmd)
'使用自动生成的SQL语句
ADOcmd.Update(ds,"student_Info ")
'对数据库进行更新
MsgBox( "修改学籍信息成功！ ",vbOKOnlyvbExclamation,"警告 ")
TxtName.Enabled=False
ComboSex.Enabled=False
TxtBornDate.Enabled=False
TxtClassno.Enabled=False
TxtRuDate.Enabled=False
TxtTel.Enabled=False
TxtAddress.Enabled=False
TxtComment.Enabled=False'重新设置信息为只读
EndSub
PrivateSubBtCancel_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtCancel.Click
TxtSID.Enabled=False
TxtName.Enabled=False
ComboSex.Enabled=False
TxtBornDate.Enabled=False
TxtClassno.Enabled=False
TxtRuDate.Enabled=False
TxtTel.Enabled=False
TxtAddress.Enabled=False
TxtComment.Enabled=False
EndSub
PublicFunctionExecuteSQL(ByValSQLAsString,ByValtableAsString)
Try
'建立ADODataSetCommand对象
'数据库查询函数
ADOcmd=NewOleDbDataAdapter(SQL,"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:\student.mdb ")
'建立ADODataSetCommand对象
ADOcmd.Fill(ds,table)'取得表单
mytable=ds.Tables.Item(0)'取得名为table的表
rownumber=0'设置为第一行
myrow=mytable.Rows.Item(rownumber)
'取得第一行数据
Catch
MsgBox(Err.Description)
EndTry
EndFunction
EndClass
vb.net 怎么操作数据库如果楼主熟悉VB6，可以直接在项目中添加ADODB的Com引用，这样你就可以像VB6那样操作数据库了！
另外
.NET Framework中连接数据库要用到ADO.NET 。如果要操作Access数据库，要用到System.Data.OleDb命名空间下的许多类 。
比如按楼主所说，“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”：
'首先导入命名空间
Imports System.Data
Imports System.Data.OleDb
'然后在某一个事件处理程序中写：
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=数据库.accdb;Jet OLEDB:Database Password=MyDbPassword")
Dim command As New OleDbCommand("Select * From 数据表", conn)
conn.Open() '打开数据库连接
Dim reader As OleDbDataReader = command.ExecuteReader() '执行SQL语句 ， 返回OleDbDataReader 对象
Do While reader.Read() '读取一条数据
textbox1.Text= reader("一些数据")VbCrLf
Loop
reader.Close() '关闭OleDbDataReader
conn.Close() '关闭连接
vb.net引用数据库的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vb如何调用数据库、vb.net引用数据库的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：公司如何加入市场营销部，如何进入市场部

    下一篇：金铲铲是棋牌类游戏吗，金铲铲算什么类型游戏