锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net将数据保存 vb中保存文件的代码

IT技术保存

vb.net如何将DataGridView1中的数据保存到新的access中？Private Sub Form_Load() Dim sql As String Dim conn As New Connection On Error GoTo loaderror '这是个判断错误的语句、如果执行错误gotoloaderror：下面的语句 conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source="App.Path"\db1.mdb" sql = "select * from 供货商信息表" rs_reader.CursorLocation = adUseClient rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic cmdupdate.Enabled = False cmdcancel.Enabled = False DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_reader Exit Sub loaderror: MsgBox Err.Description End Sub 我做的仓库管理系统里的窗体加载datagrid信息
VB.NET编程中用户的数据应该怎么保存?在游戏退出时将得分、玩家名、关数、级别这些数值保存到一个
数据文件
，下次运行时再读取这些数据就可以恢复上次游戏的状态 。
VB.NET读取TXT文件数据保存为数组VB.NET编程读取txt文本文档中vb.net将数据保存的数据vb.net将数据保存，并把数据保存为数组，代码如下：
'写配件文件
Private Sub saveIni(ByVal filePath As String, ByVal str As String)
Dim sw As StreamWriter = New StreamWriter(filePath, True) 'true是指以追加的方式打开指定文件
sw.WriteLine(str)
sw.Flush()
sw.Close()
sw = Nothing
End Sub
'读配件文件
Private Function readIni(ByVal filePath As String)
Dim iniDt As New DataTable
iniDt.Columns.Add("text")
iniDt.Columns.Add("value")
Try
Dim sr As StreamReader = New StreamReader(filePath, System.Text.Encoding.Default)
Dim line As String = ""
While Not sr.EndOfStream
Dim str = sr.ReadLine()'读取当前行
iniDt.Rows.Add(New String() {
str(0),
str(1)
})
End While
sr.Close()
sr = Nothing
Catch ex As Exception
End Try
Return iniDt
End Function
VB如何将程序的数据保存？VB6.0
写入：
Open "D:\123.txt" For Output As #1 '打开XXX路径的XXX文件（双引号里表示文件位置和文件名）
Print #1, Text1.Text '写入Text1的Text内容
Close #1 '关闭
读?。?
Open "D:\123.txt" For Input As #1 '打开打开XXX路径的XXX文件（双引号里表示文件位置和文件名）
Do While Not EOF(1)
Line Input #1, s
Text1.Text = s
Loop 'Do...Loop表示循环读取文件的内容，并让Text1.Text=内容
Close #1 '关闭
【vb.net将数据保存 vb中保存文件的代码】VB.net中读写文件主要使用System.IO命名空间 。
① 使用 File.ReadAllText 读取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 读取，注意编码格式和写入的编码保持一致 。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
vb.net将DataGridView中的数据保存到SQL数据库Dim ap As SqlClient.SqlDataAdapter'这个变量很重要
Private Function Save_Data() As Boolean '保存数据库的操作
Try
Me.DataGridView1.EndEdit()
' Me.BindingSource1 = Me.DataGridView1.DataSource
Me.BindingSource1.EndEdit()
Dim bd As New SqlClient.SqlCommandBuilder(ap)
ap.UpdateCommand = bd.GetUpdateCommand
ap.Update(Me.BindingSource1.DataSource)
Find(str_cmd)
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function
vb.net 如何存储用户数据？这个你可以用api操作ini文件来实现 。ini是windows系统的配置文件 。
'首先声明这两个api
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long

推荐阅读


上一篇：手机屏幕颜色为白色怎么办，手机屏幕颜色检测

下一篇：品牌中老年羽绒裤直播文案，老人羽绒裤的制作视频