精华内容
下载资源
问答
  • VB6.0将数据保存TXT文件,源代码编写
  • vb将text中的数据保存到数据库中vb将text中的数据保存到数据库中
  • 摘要:VB源码,文件操作,TXT,配置文件,INI VB无数据库保存参数或数据,可保存txt 格式,或是ini bat格式等,程序利用了生成文件以及载入文件代码:  WritePrivateProfileStringByKeyName& "参数", "text1", Text1....
  • VB6.0将数据保存TXT文件,源代码编写。strFileName = App.Path & "\a.txt
  • VB将数据库导出到TXT文本文件中

    热门讨论 2010-11-29 13:40:52
    VB将数据库导出到TXT文本文件中,注意一般文件路径正确的话,就可以顺利导出成功
  • vb读取txt文件

    2013-12-12 18:40:48
    总结了vb语言读取txt文件的各种方法,不是很完善,供各位亲们参考
  • 数据导出Excel的6种方法(VB6)

    千次阅读 2020-02-12 12:48:04
    数据导出Excel的6种方法(VB6) 在数据操作中,特别是与数据库相关的操作中,我们需要经常导出数据到Excel表格中,下面我们提供了六种方式来将数据导出Excel表格中: 如果大家C币比较多的话,可以直接下载我整理好...

    数据导出到Excel的6种方法(VB6)

    在数据操作中,特别是与数据库相关的操作中,我们需要经常导出数据到Excel表格中,下面我们提供了六种方式来将数据导出到Excel表格中:
    如果大家C币比较多的话,可以直接下载我整理好的源码:点击此处下载>>>>
    六种导入数据到Excel的方法
    此实例提供了6种导出数据到Excel的方法,说明如下:
    1.通过获取Excel对象,然后使用Excel的QueryTable方法生成数据到Excel表指定位置,速度比较快
    代码如下::

    	Dim xlApp As New Excel.Application
        Dim xlQuery As Excel.QueryTable
        Dim xlSheet As Worksheet
        Dim SQL As String
        On Error GoTo Err_Cmd_QueryTable_Click
        '-------------------------------------
        ConnMDB
        If RS.State Then RS.Close
        Set xlApp = New Excel.Application    '初始化对象变量
        xlApp.SheetsInNewWorkbook = 1  '将新建的工作薄数量设为1
        xlApp.Workbooks.Add          '增加一个工作薄
        xlApp.Sheets(xlApp.Sheets.Count).Name = "QueryTable技术导出记录集"  '修改工作薄名称
        Set xlSheet = xlApp.Worksheets("QueryTable技术导出记录集")
        SQL = "select * from student"
        Query2Excel SQL, Cnn, xlSheet, "A1", xlQuery 'A1即可将数据放到A1单元格
          '删除产生的连接
          Dim i As Long
        For i = xlSheet.Application.ActiveWorkbook.Connections.Count To 1 Step -1
            xlSheet.Application.ActiveWorkbook.Connections(i).Delete
        Next i
        xlApp.Visible = True
        xlApp.Application.Visible = True
        Set xlApp = Nothing  '"交还控制给Excel
        Set xlSheet = Nothing
        '-------------------------------------
       On Error GoTo 0
       Exit Sub
    Err_Cmd_QueryTable_Click:
       If MsgBox("【版本信息】:" & 版本 & vbCrLf & "【错误代码】:" & Err.Number & vbCrLf & "【错误描述】:" & Err.Description & vbCrLf & "【出错位置】: [Form1]→ [Cmd_QueryTable_Click]的 " & Erl & "" & vbCrLf & "是否继续?", vbYesNo + vbQuestion + vbDefaultButton1, "错误处理") = vbYes Then Resume Next
    

    其中ConnMDB及Query2Excel函数如下
    代码如下:

    Public Cnn As New ADODB.Connection
    Public RS As New ADODB.Recordset
    Public RStmp As New ADODB.Recordset
    Public FilePath As String
    '连接本地Access数据库
    Public Function ConnMDB() As Boolean
        Dim ConnStr As String
        If Cnn.State Then Cnn.Close
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=true;Persist Security Info=True;Data Source=" & App.Path & "\data.mdb"
        Cnn.CursorLocation = adUseClient
        Cnn.Open ConnStr
        If Cnn.State = 0 Then
            MsgBox "连接本地数据库失败,系统自动退出.", vbOKOnly + vbInformation, "信息提示"
        Else
            ConnMDB = True
        End If
    End Function
    '连接本地excel文件
    Public Function ConnExcel() As Boolean
        Dim ConnStr As String
        FilePath = "data.xls"
        If ExcelVer(FilePath) = 3 Then
            'excel 2003
            ConnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\" & FilePath & ";Extended Properties=""Excel 8.0;HDR=yes;IMEX=1"""
        Else
            'excel 2007,2010,2013,2016
            ConnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\" & FilePath & ";Extended Properties=""Excel 12.0;HDR=yes;IMEX=1"""
        End If
        If Cnn.State Then Cnn.Close
        Cnn.Open ConnStr
        If Cnn.State = 0 Then
            MsgBox "连接本地Excel失败,系统自动退出.", vbOKOnly + vbInformation, "信息提示"
        Else
            ConnExcel = True
        End If
    End Function
    Public Function Query2Excel(SQL As String, CN As ADODB.Connection, xlSheet As Excel.Worksheet, InsertPosition As String, xlQuery As Excel.QueryTable)
        If RStmp.State Then RStmp.Close
        RStmp.CursorLocation = adUseClient
        RStmp.Open SQL, CN, adOpenStatic, adLockReadOnly
        If RStmp.RecordCount < 1 Then
            Exit Function
        End If
        '添加查询语句,导入EXCEL数据
        Set xlQuery = xlSheet.QueryTables.Add(RStmp, xlSheet.Range(InsertPosition))
        With xlQuery
            .FieldNames = True
            .FieldNames = False    '是否显示字段名
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertEntireRows
            .SavePassword = True
            .SaveData = False
            .AdjustColumnWidth = False    '不需要列宽
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
        End With
        xlQuery.Refresh
    End Function
    Public Function ExcelVer(ST As String) As Long
        Dim 后缀 As String
        后缀 = Mid(ST, InStrRev(ST, ".") + 1)
        ExcelVer = Len(后缀)
    End Function
    

    2.通过连接Access创建选择集,然后将选择集批量插入Excel指定位置,速度比较快
    代码如下:

        Dim xlApp As New Excel.Application
        Dim xlSheet As Worksheet
        Dim SQL As String
        On Error GoTo Err_Cmd_ADO_AccessDB_Click
        '-------------------------------------
        ConnMDB
        If RS.State Then RS.Close
        Set xlApp = New Excel.Application    '初始化对象变量
        xlApp.SheetsInNewWorkbook = 1  '将新建的工作薄数量设为1
        xlApp.Workbooks.Add          '增加一个工作薄
        xlApp.Sheets(xlApp.Sheets.Count).Name = "连接Access导出数据实例"  '修改工作薄名称
        Set xlSheet = xlApp.Worksheets("连接Access导出数据实例")
        xlSheet.SaveAs App.Path & "\" & Format(Now, "yyyy-MM-dd-hh_mm_ss") & "学生表.xls"
        SQL = "select * from student"
        xlSheet.Cells(1, 1).CopyFromRecordset Cnn.Execute(SQL)
        Cnn.Close
        xlSheet.Application.ActiveWorkbook.Save
        xlApp.Visible = True
        xlApp.Application.Visible = True
        Set xlApp = Nothing  '"交还控制给Excel
        Set xlSheet = Nothing
        '-------------------------------------
       On Error GoTo 0
       Exit Sub
    Err_Cmd_ADO_AccessDB_Click:
       If MsgBox("【版本信息】:" & 版本 & vbCrLf & "【错误代码】:" & Err.Number & vbCrLf & "【错误描述】:" & Err.Description & vbCrLf & "【出错位置】: [Form1]→ [Cmd_ADO_AccessDB_Click]的 " & Erl & "" & vbCrLf & "是否继续?", vbYesNo + vbQuestion + vbDefaultButton1, "错误处理") = vbYes Then Resume Next
    

    3.通过连接Excel表,将Excel表作为数据库,创建选择集,然后将选择集批量插入Excel指定位置,速度比较快
    代码如下:

        Dim xlApp As New Excel.Application
        Dim xlSheet As Worksheet
        Dim SQL As String
        On Error GoTo Err_Cmd_ADO_ExcelDB_Click
        '-------------------------------------
        ConnExcel
        If RS.State Then RS.Close
        Set xlApp = New Excel.Application    '初始化对象变量
        xlApp.SheetsInNewWorkbook = 1  '将新建的工作薄数量设为1
        xlApp.Workbooks.Add          '增加一个工作薄
        xlApp.Sheets(xlApp.Sheets.Count).Name = "Excel表格作为数据库导出数据实例"  '修改工作薄名称
        Set xlSheet = xlApp.Worksheets("Excel表格作为数据库导出数据实例")
    '    xlSheet.SaveAs App.Path & "\" & Format(Now, "yyyy-MM-dd-hh_mm_ss") & "学生表.xls"
        SQL = "select * from `学生记录$`"
        xlSheet.Cells(1, 1).CopyFromRecordset Cnn.Execute(SQL)
        Cnn.Close
    '    xlSheet.Application.ActiveWorkbook.Save
        xlApp.Visible = True
        xlApp.Application.Visible = True
        Set xlApp = Nothing  '"交还控制给Excel
        Set xlSheet = Nothing
        '-------------------------------------
       On Error GoTo 0
       Exit Sub
    Err_Cmd_ADO_ExcelDB_Click:
       If MsgBox("【版本信息】:" & 版本 & vbCrLf & "【错误代码】:" & Err.Number & vbCrLf & "【错误描述】:" & Err.Description & vbCrLf & "【出错位置】: [Form1]→ [Cmd_ADO_ExcelDB_Click]的 " & Erl & "" & vbCrLf & "是否继续?", vbYesNo + vbQuestion + vbDefaultButton1, "错误处理") = vbYes Then Resume Next
    

    4.将数组直接插入到Excel指定位置,速度比较快,因为数组数据在内存中,对于比较复杂的判断,可以先在数组中处理,可以用此种方法导出
    代码如下:

      Dim xlApp As New Excel.Application
        Dim xlSheet As Worksheet
        On Error GoTo Err_Cmd_From_Arr_Click
        '-------------------------------------
        ConnExcel
        If RS.State Then RS.Close
        Set xlApp = New Excel.Application    '初始化对象变量
        xlApp.SheetsInNewWorkbook = 1  '将新建的工作薄数量设为1
        xlApp.Workbooks.Add          '增加一个工作薄
        xlApp.Sheets(xlApp.Sheets.Count).Name = "直接将内存中的数字复制到Excel实例"  '修改工作薄名称
        Set xlSheet = xlApp.Worksheets("直接将内存中的数字复制到Excel实例")
    
    
        Dim ArrData(10000, 10) As String
        For i = 1 To 10000
            For j = 1 To 10
                ArrData(i, j) = "第" & i & "行,第" & j & "列"
            Next j
        Next i
        xlSheet.Range("B2").Resize(UBound(ArrData, 1), UBound(ArrData, 2)) = ArrData'直接一句话搞定
        xlSheet.Cells.EntireColumn.AutoFit '自动调节列宽
        
        
        xlApp.Visible = True
        xlApp.Application.Visible = True
        Set xlApp = Nothing  '"交还控制给Excel
        Set xlSheet = Nothing
        '-------------------------------------
       On Error GoTo 0
       Exit Sub
    Err_Cmd_From_Arr_Click:
       If MsgBox("【版本信息】:" & 版本 & vbCrLf & "【错误代码】:" & Err.Number & vbCrLf & "【错误描述】:" & Err.Description & vbCrLf & "【出错位置】: [Form1]→ [Cmd_From_Arr_Click]的 " & Erl & "" & vbCrLf & "是否继续?", vbYesNo + vbQuestion + vbDefaultButton1, "错误处理") = vbYes Then Resume Next
    

    5.传统的方法,就是向Excel表格对应的单元格一个一个插入数据,此种方法是最原始的,也是最慢的
    代码如下:

     Dim xlApp As New Excel.Application
        Dim xlSheet As Worksheet
        On Error GoTo Err_Cmd_StandardMode_Click
        '-------------------------------------
        ConnExcel
        If RS.State Then RS.Close
        Set xlApp = New Excel.Application    '初始化对象变量
        xlApp.SheetsInNewWorkbook = 1  '将新建的工作薄数量设为1
        xlApp.Workbooks.Add          '增加一个工作薄
        xlApp.Sheets(xlApp.Sheets.Count).Name = "直接写入数据到Excel单元格实例"  '修改工作薄名称
        Set xlSheet = xlApp.Worksheets("直接写入数据到Excel单元格实例")
         Dim ArrData(100, 10) As String
        For i = 1 To 100
            For j = 1 To 10
                xlSheet.Cells(i + 1, j + 1) = "第" & i & "行,第" & j & "列"
            Next j
        Next i
        xlSheet.Cells.EntireColumn.AutoFit '自动调节列宽
        
        
        xlApp.Visible = True
        xlApp.Application.Visible = True
        Set xlApp = Nothing  '"交还控制给Excel
        Set xlSheet = Nothing
        '-------------------------------------
       On Error GoTo 0
       Exit Sub
    Err_Cmd_StandardMode_Click:
       If MsgBox("【版本信息】:" & 版本 & vbCrLf & "【错误代码】:" & Err.Number & vbCrLf & "【错误描述】:" & Err.Description & vbCrLf & "【出错位置】: [Form1]→ [Cmd_StandardMode_Click]的 " & Erl & "" & vbCrLf & "是否继续?", vbYesNo + vbQuestion + vbDefaultButton1, "错误处理") = vbYes Then Resume Next
    

    6.通过借助VSFlexGrid控件(一个相当相当好用的数据展示控件)的SaveGrid方法导出,导出过程瞬间完成,即使电脑上不安装Excel应用程序也没有问题。

    代码如下:

        Dim SQL As String
        Dim FilePath As String
        On Error GoTo Err_Cmd_VSFlexGrid2Excel_Click
        '-------------------------------------
        FilePath = App.Path & "\" & Format(Now, "yyyy-MM-dd-hh_mm_ss") & "借助VSFlexGrid导出Excel.xls"
        ConnMDB
        If RS.State Then RS.Close
        SQL = "select * from student"
        RS.Open SQL, Cnn, adOpenForwardOnly, adLockReadOnly
        Set VSFlexGrid1.DataSource = RS
        '导出数据
        VSFlexGrid1.SaveGrid FilePath, flexFileExcel, flexXLSaveFixedCells Or flexXLSaveRaw
        MsgBox "导出OK!"
        Shell "explorer " & FilePath   '打开excel表格
        '-------------------------------------
       On Error GoTo 0
       Exit Sub
    Err_Cmd_VSFlexGrid2Excel_Click:
       If MsgBox("【版本信息】:" & 版本 & vbCrLf & "【错误代码】:" & Err.Number & vbCrLf & "【错误描述】:" & Err.Description & vbCrLf & "【出错位置】: [Form1]→ [Cmd_VSFlexGrid2Excel_Click]的 " & Erl & "" & vbCrLf & "是否继续?", vbYesNo + vbQuestion + vbDefaultButton1, "错误处理") = vbYes Then Resume Next
    
    展开全文
  • Visual Basic关于txt文本文件指定行修改的一段代码。对于处理txt文本文档进行简化,可直接修改指定行。
  • 其实只要用 RichTextBox1.SaveFile 文件名,1 这种格式就可以了。
  • vb读取txt数据绘制温度时间曲线

    热门讨论 2010-08-25 21:18:57
    采集的数据保存txt文档中,为了方便实现对数据的分析。用vb进行编程,读取指定的txt数据,绘制时间温度湿度曲线。
  • VS2010打开txt文件并显示到txt文本框中,然后将文本框内容保存txt
  • 下面是将Text1中数据可存电脑上代码 Dim SaveFile As String SaveFile "D: 服务器外网IP地址 txt" " open app path & " 服务器外网IP地址 txt" For output as #1 Open SaveFile For ...
  • VB textbox里面的数据导入已有的Excel表格中的某一指定单元格怎么做?
  • 这是用VS2010+Mscomm控件编程实现了串口调试助手的代码,并能把下位机串口通过串口发送过来的数据存储在电脑F盘的data.txt文件中(具体位置和文件名可自己改),具体一步一步是怎么实现的,可以参考我的博客:...
  • vb接受串口数据并实时显示

    热门讨论 2013-11-01 13:26:41
    本程序通过串口通讯采集数据,并将数据通过kchart控件绘制成实时曲线,另外程序还可将数据保存到txt文档进行读写。
  • 1个目标文件 摘要:Java源码,算法相关,密钥 Java生成密钥、保存密钥的实例源码,通过本源码可以了解Java如何产生单钥加密的密钥(myKey)、产生双钥的密钥对(keyPair)、如何保存公钥的字节数组、保存私钥文件...
  • 【PC】自制QQ机器人(python+VB6)

    千次阅读 多人点赞 2019-08-28 17:21:43
    目前网上的那些QQ机器人都需要下载什么...VB6:1.定时获取QQ消息,也就是对方说了什么。2.定时发送来自python处理好的回答(txt文件格式)。3.对获取的QQ消息分析,既不能是对方上次发的消息(已经处理完并发送)也...

    目前网上的那些QQ机器人都需要下载什么什么软件,我想自己弄个QQ机器人,所有有了想法就去实现。
    实现方法:

    首先要先说明一下:两种语言要怎么沟通呢?
    我一开始也寻思着,后来发现txt文档可以,不过比较慢。

    主要思路:
    VB6:1.定时获取QQ消息,也就是对方说了什么。2.定时发送来自python处理好的回答(txt文件格式)。3.对获取的QQ消息分析,既不能是对方上次发的消息(已经处理完并发送)也不能是自己发给对方的消息。分析完成后保存到一个txt文件夹,好传送到python中去。

    python:1.接受来自VB6处理好的消息并发送给机器人,让机器人回复消息并保存为txt文档以便 VB6发送


    由于VB6会一直循环检测来自QQ的消息,所以会有消息重复获取的情况
    因此需要判断获取的这个消息是否处理完毕。
    如果只有对方发送的消息:
    在这里插入图片描述
    就像这样,那么VB6就只会获取到“你好”,
    这个时候VB6就会判断这个消息是否和上一次消息一样,
    如果一样就不执行代码,(但在第一次获取这个消息的时候就会执行(因为第一次获取就是和第一次的上一次不一样))
    在这里插入图片描述
    这是执行了代码(也就是回复这条消息)

    之后就是是这样:
    在这里插入图片描述
    就机器人回复只有这个,但是对方不回复,很重要
    如果对方一直不回答,那么VB6是不是一直检测到的就是这句话“在的”
    这样的话程序就不会回复,要不然自己获取了之前发自己消息还以为这是对方发的消息然后就自己回复自己啦


    具体步骤
    第一步:用python确定发送给对方的内容。
    python人工智能我不会,所以只能找网上的图灵接口,还真有,直接用python爬取数据或者发送数据到几口就有返回值了,返回值就是你要回复的话。保存为txt文件(这里需要两个txt文件都储存着这个数据。为什么:VB6重要用掉其中一个,下面会说)

    ↓↓↓↓↓↓↓↓↓↓↓↓↓↓这是我找到的图灵机器人(如果你会人工智能的话就简单啦,直接python调用)
    机器人
    第二步:发送来自python机器人的消息

    先来分析一下PCQQ也就是这样了
    就是这个样子。然后我们看看有个输入框,其实发送消息就直接用VB6就行了

    AppActivate "对方或群聊QQ名字" 
    SendKeys Text1.Text
    SendKeys "%s"
    
    • 第一行代码就是选中窗体
    • 第二行输出语句,也就是打字到QQ消息框里,打字的内容可以更改
    • 第三行快捷键发送

    好了发送已经做好了,接下来我们要拦截 获取对方发送了什么消息

    首先先来看看QQ,一般可以解释聊天窗口有很多控件
    根据VB是不是可以按一下tab

    然后我们就试试在这里插入图片描述
    发现没有,有一条虚线在那里,然后我们发现就可以选择文字复制粘贴了

    我们直接用VB6把所有文字都复制下来,

    SendKeys "^c"
    

    也就是ctrl+c复制
    继续,用VB6获取剪辑版的文字

    dim a
    a = Clipboard.GetText
    

    Clipboard.GetText这个就是剪切板的内容啦
    然后再用VB6处理这些文字,就只用获取最后一行

    Dim A As String
    Dim FSO As Object
    Dim FSO_File As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FSO_File = FSO.OpenTextFile(App.path & "/1.txt", 1, False) '读取文件而不创建
    Do While Not FSO_File.AtEndOfStream
    A = FSO_File.ReadLine '获取最后一行
    Loop
    FSO_File.Close
    

    就如你所见,我是先弄到txt文档在读取最后一行。
    这里的A就是QQ最后接受的消息啦,
    不过不要忘记,这也可能是你发送的消息
    所以我们接下来还要进行一波判定
    判定这个A消息是否和之前处理过的消息以及你发的消息一样
    如果不一样的话就可以输出到python
    然后有新回复VB6又会检测到,发送。
    就这样一个循环过程。

    展开全文
  • VB数据排序及文件读取的应用,可以读取TXT文本数据和保存数据,在此基础上进行数据的排序。注:数据库部分没有编写完成,因此没有附带数据库。
  • 1.txt是通过keil的save命令保存指定内存地址间的数据SAVE path\fname startAddr, endAddr 且数据类型为uint32_t 或int32_t 2)点击decode.exe,生成2.txt数组,然后通过excel或matlab可以生成曲线,观看数据变化
  • Sub updata_Close_Inquiry() 'stable 要导入的表,Inquiry为临时表,存放即将导入的数据,并在Inquiry表中进行格式转换 Dim ds As String Dim i, j Dim ss = 0 ds = "" For i = LBound(arr) + 1 To
    Sub updata_Close_Inquiry()
            'stable 要导入的表,Inquiry为临时表,存放即将导入的数据,并在Inquiry表中进行格式转换
            Dim ds As String
            Dim i, j
            Dim ss = 0
            ds = ""
            For i = LBound(arr) + 1 To UBound(arr)  'arr为需要更新的数据,如果SQL中存在,删除,再重新导入arr的数据
                ds = "'" & arr(i, 53) & arr(i, 54) & "'," & ds 'ds为主键的内容,即需要在SQL中删除的数据
            Next
            ds = Left(ds, ds.Length - 1) '对ds内容进行修改
            ds = Replace(ds, "' ", "")
    
            Dim rs As SqlCommand
            Dim cnn As SqlConnection
            Dim sqlstr1 As String
            cnn = New SqlConnection("server=" & ssever & ";database=" & sdatabase & ";uid=sa;pwd=sa")
            sqlstr1 = "USE Sales_Order IF COL_LENGTH('" & stable & "', 'Order_No') IS  NULL alter table " & stable & "  add Order_No nvarchar(255) "  'SQL主键是否存在,如果存在,删除,在之前的操作中可能有增加SQL的主键
            rs = New SqlCommand(sqlstr1, cnn)
            Try
                cnn.Open()
                rs.ExecuteNonQuery()
            Catch
                MsgBox("Error:0", 16, "Attention")
                Exit Sub
            Finally
            End Try
            cnn.Close()
            sqlstr1 = "USE Sales_Order UPDATE " & stable & " SET [Order_No] = convert(varchar(255),convert(decimal(20,0),[Order No#]))+[Line No#]" '重新增加SQL主键,并填充主键内容
            rs = New SqlCommand(sqlstr1, cnn)
            Try
                cnn.Open()
                rs.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox("Error:0" & Chr(10) & ex.Message, 16, "Attention")
                Exit Sub
            Finally
            End Try
            cnn.Close()
            sqlstr1 = "USE Sales_Order DELETE FROM " & stable & " Where [Order_No] in (" & ds & ")" '删除在ds中的数据
            rs = New SqlCommand(sqlstr1, cnn)
            Try
                cnn.Open()
                ss = rs.ExecuteNonQuery() 'ss为返回删除的行数
            Catch ex As Exception
                MsgBox("Error:0" & Chr(10) & ex.Message, 16, "Attention")
                Exit Sub
            Finally
            End Try
            cnn.Close()
            EditRecord = EditRecord + ss '记录删除的行数
            'sqlstr1 是用BULK上传TXT文件的语句
            sqlstr1 = "USE Sales_Order IF COL_LENGTH('" & stable & "', 'Order_No') IS NOT NULL  ALTER TABLE " & stable & " DROP COLUMN Order_No " '删除Order_No主键,在TXT文档中没有该列
            sqlstr1 = sqlstr1 & "TRUNCATE TABLE Inquiry; " '清除Inquiry表的数据
            sqlstr1 = sqlstr1 & "alter table Inquiry alter column [Order Date] nvarchar(255) alter table Inquiry alter column [Shipment Date] nvarchar(255) alter table Inquiry alter column [Closed Date] nvarchar(255) alter table Inquiry alter column [Fapiao Date] nvarchar(255) alter table Inquiry alter column [Nota Date] nvarchar(255) " '按需求将Inquiry表的格式全部修改为nvarchar(255),防止TXT文档导入时出错
            sqlstr1 = sqlstr1 & "BULK INSERT Inquiry FROM '" & stxt & "' WITH (FIELDTERMINATOR ='\t', ROWTERMINATOR= '\n'); " '将TXT文档导入Inquiry表中 FIELDTERMINATOR:分列符  ROWTERMINATOR:分行符
            sqlstr1 = sqlstr1 & "alter table Inquiry alter column [Order Date] date alter table Inquiry alter column [Shipment Date] date alter table Inquiry alter column [Closed Date] date alter table Inquiry alter column [Fapiao Date] date alter table Inquiry alter column [Nota Date] date " '按照需求将Inquiry表的格式修改成stable格式
            rs = New SqlCommand(sqlstr1, cnn) '执行
            Try
                cnn.Open()
                rs.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox("Error:0" & Chr(10) & ex.Message, 16, "Attention")
                Exit Sub
            End Try
            cnn.Close()
            sqlstr1 = "USE Sales_Order insert into " & stable & " select * from Inquiry "  '将Inquiry表中的数据导入到stable表中,并记录导入的行数
            rs = New SqlCommand(sqlstr1, cnn)
            Try
                cnn.Open()
                ss = rs.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox("Error:0" & Chr(10) & ex.Message, 16, "Attention")
                Exit Sub
            End Try
            cnn.Close()
            UpdataRecord = UpdataRecord + ss
            sqlstr1 = "USE Sales_Order TRUNCATE table Inquiry; update  " & stable & " set [Line No#]  = replace([Line No#],'''','');update " & stable & " set [Line No#]  = replace([Line No#],' ','');"  '收尾,Inquiry表中的数据,对stable的文本进行处理
            rs = New SqlCommand(sqlstr1, cnn)
            Try
                cnn.Open()
                rs.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox("Error:0" & Chr(10) & ex.Message, 16, "Attention")
                Exit Sub
            End Try
            cnn.Close()
    
            cnn = Nothing
            rs = Nothing
            If ss <> UBound(arr) - 1 Then
                MsgBox(stxt & "导入失败", 16)
            End If
        End Sub
    展开全文
  • !... ``` Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Me.ListBox1.Items.Clear() ...我编的这个只是在listbox中显示了文件里面数据,并没有存成数组,请问该如何修改呢?
  • VB循环读写TXT文件

    千次阅读 2014-12-17 15:34:26
    这个问题看似简单,可实际上在网上搜索后给出的解答基本都是下面这种。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' ...新建一个TXT文档,随便输入一行,回车换行,保存退出。这时候用上面这

    这个问题看似简单,可实际上在网上搜索后给出的解答基本都是下面这种。

    Do While Not EOF(1) ' 循环至文件尾。 
    Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 
    Debug.Print TextLine ' 在调试窗口中显示数据。 
    可这种方法却忽略了一种情况,导致会出错。

    新建一个TXT文档,随便输入一行,回车换行,保存退出。这时候用上面这种代码读取这个TXT文档,会报错,不信可以试下。

    因为最后的那个回车换行也被VB认为是一个字符在文件中,比如前面输入了“12345678”,那么用line input读完一行后,这时候用Seek查看文件指针的位置,值是9。可实际上整个文件也就8个字符,这时候用EOF判断的话,它是认为文件未结束,那么返回值就是FALSE,可是再用line input读取的时候,会报“超出文件尾”的错,也就是line input是不认这个回车换行的,它认为文件结束了。

    下面是我找的一种解决这个报错的方法:

        Open App.Path & "\1.txt" For Binary As #1
        
        Do While Loc(1) <> LOF(1)
            Line Input #1, strTest
            Debug.Print strTest
        Loop
        Close #1

    借助Loc和LOF函数来判断。

    Loc(文件号):返回指定文件的当前读写位置

    LOF(文件号):返回文件的长度

    通过判断读写位置与文件的长度是否相等来判断是否读取到文件尾。

    代码经测试是可行的。


    展开全文
  • vb.net的文本保存和读取代码,用于保存网站详情页内容用.,这样就减轻数据库的ntext字段的存储压力,使数据库在访问,执行的时候更轻,更快。 ''' <summary> ''' 读取内容 ''' </summary> ...
  • 有的数据是由TXT保存的,但是用MATLAB处理数据不太方便,就可用这个
  • 内容索引:VB源码,文件操作,数据排序,文件读取 VB数据排序及文件读取的应用,可以读取TXT文本数据和保存数据,在此基础上进行数据的排序。注:数据库部分没有编写完成,因此没有附带数据库。
  • 将dataTable 保存到本地txt文件中

    千次阅读 2016-10-03 17:35:33
    string path = ‘path’;  StringBuilder builder = new StringBuilder();  builder.AppendLine(errorTable.Columns[0].ColumnName + '/' + errorTable.Columns[1].ColumnNam
  • 哪位大神帮我写个简单代码,从txt文件中提取数据,然后显示在数据库中,并且修改之后又可以保存txt中,可以一起商量写。会有相当酬劳。联系我qq1184218831
  • VB打开记事本并写入数据然后保存

    千次阅读 2010-11-18 23:46:00
    VB打开记事本并写入数据然后保存 Dim  FileName As  String CommonDialog1.ShowSave  '如果你不用CommonDialog控件,就删除这一句和下面两句 If  CommonDialog1.FileName =  ...
  • ' frm基础数据_添加套餐项目.txt项目序号.Text = Trim(rst("组合项目序号") & "") ' frm基础数据_添加套餐项目.lv项目列表.Text = Trim(rst("组合项目名称") & "") ' rst.MoveNext ' Loop ' End If Proc_Exit: ...
  • 图书管理,学生档案等,当需要查询的时候,就是读取数据,新增或者更改就需要写数据VB来讲,中小型的数据一般用Access数据库,大型的数据多用SQL server数据库,这些以后再讲,今天主要了解如何读写txt文本文件。...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 6,487
精华内容 2,594
关键字:

vb保存数据到txt