| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 893 人关注过本帖
标题:完全新人 大神求教
只看楼主 加入收藏
hyuna
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2017-3-13
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
完全新人 大神求教
用command添加了保存按钮 想保存当前更新的资料 求代码跟解释 万分感谢!
搜索更多相关主题的帖子: command 资料 
2017-03-13 09:41
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:7 
你这个问题无答案,给个参考吧
方案一:使用的是数据库,使用命令保存
读取各控件值,生成更新用的SQL,提交执行。
方案二:使用的是数据库,使用控件绑定
提交更新
方案三:使用二进制数据文件
定义结构,读取各控件值,计算文件位置,打开文件,保存数据,关闭文件
方案四:使用INI文件
读各控件值,调用保存INI函数,一个一个的写入
方案五:保存为一个文本文件
读各控件值,以新建文件打开文件,一个一行的写入,关闭文件



授人于鱼,不如授人于渔
早已停用QQ了
2017-03-13 11:45
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:7 
保存,你保存在哪里呀?
数据库、数据文件、文本文件等等,保存介质比较多,不可能一个一个给你说吧?

请不要选我!!!
2017-03-13 16:09
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:7 
Private Sub Command1_Click()'文本文件保存
  CommonDialog1="text.txt" 'CommonDialog1是工程-部件-Microsoft Common Dialog Control 6.0的控件
  Open CommonDialog1.FileName For Output As #1  ' 以输出方式打开文本文件。
    Print #1, "具体内容"
  close #1
end sub

Private Sub Command1_Click()'execl文件保存
   Dim NewXls As Excel.Application
   Dim NewBook As Excel.Workbook
   Dim NewSheet As Excel.Worksheet
   Set NewXls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
      NewXls.SheetsInNewWorkbook = 2'2个sheet
   Set NewBook = NewXls.Workbooks.Add '创建工作簿
      NewXls.DisplayAlerts = False  '
   Set NewSheet = NewBook.Worksheets(1) '设置第一个sheet
   NewXls.Workbooks(1).Worksheets(1).Cells(1, 1)="测试"'第一个单元格赋值
   NewXls.Workbooks(1).Worksheets(1).Range("a1:a1").Interior.Color = vbred '背景红色
   NewXls.Workbooks(1).Worksheets(1).Range("a1:a1").Borders.Weight = xlThin '设置边框
   NewXls.Workbooks(1).Worksheets(1).Range("a1:a1").HorizontalAlignment = 3 '设置居中
   NewXls.Workbooks(1).Worksheets(1).Range("a1:a1").ColumnWidth = 15 '设置列宽
   NewXls.Workbooks(1).Worksheets(1).Name = "测试表"
    NewBook.Close (True) '关闭工作簿
    Newxls.Quit '结束EXCEL对象
end sub

以上是常用的文本文件,execl文件的保存事例,供参考。


2017-03-15 09:28
快速回复:完全新人 大神求教
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.045871 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved