锐客网

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

vb.net改变字段类型 vb修改属性的方法

IT技术enabled

vb.net 如何向access增加或删除“字段”access数据库用sql语句添加字段，修改字段 ， 删除字段_Access_脚本之家
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'如果到达记录的首部vb.net改变字段类型，行号设为零
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
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( "请输入姓名vb.net改变字段类型！ ",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 如果读取txt数据(或十进制dat数据)vb.net虽也有input语句 ， 但一次只能读取到一个变量中，可以用TextFieldParser类代替，但似乎没以前的方便 。不过比以前的更灵活 。写入文件Write还是可以用 ， 在Microsoft.VisualBasic.FileIO中 。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fileName As String = "E:\User Documents\Master\My Documents\电子阅读\股票\table2.csv"
Using Recrods As New Microsoft.VisualBasic.FileIO.TextFieldParser(fileName) '建立TextFieldParser对象
'MyReader.TextFieldType = FieldType.Delimited
Recrods.SetDelimiters(",") '把字段分隔符设置为","
Dim curRow() As String
Do Until Recrods.EndOfData
curRow = Recrods.ReadFields() '读取记录行，返回字符串数组，所以不同字段类型需要自己转换 。
Debug.Print(Join(curRow, vbTab))
Loop
End Using
End Sub
VB.Net 用Access数据库 ， 同样是日期型字段，第一句可以更新 ， 第二句不能更新,提示语法错误，什么原因？vb.net改变字段类型你把这个字段名 Prepare 修改一下vb.net改变字段类型，这个名可能与VB.NET或者是ACCESSvb.net改变字段类型的保留字发生冲突vb.net改变字段类型了 ， 改成 Prepare1 或者其它就可以 。
【vb.net改变字段类型 vb修改属性的方法】关于vb.net改变字段类型和vb修改属性的方法的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：怎么看电脑键盘什么轴的，怎么看电脑键盘是什么轴

    下一篇：手机照片怎么上传到u盘，手机图片怎样传到u盘上