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

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信息

相关问答

Q1: VB.NET编程中用户的数据应该怎么保存?

在游戏退出时将得分、玩家名、关数、级别这些数值保存到一个

数据文件

，下次运行时再读取这些数据就可以恢复上次游戏的状态。

Q2: 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

Q3: 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中读写文件主要使用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()

Q4: 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

Q5: 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

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

vb.net将数据保存的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb中保存文件的代码、vb.net将数据保存的信息别忘了在本站进行查找喔。