新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1、新建一个标准的VB EXE工程,只有一个Form,Form上有两个按钮:Command1和Command2。
成都创新互联是一家专业从事成都做网站、成都网站建设、成都外贸网站建设的网络公司。作为专业网站制作公司,成都创新互联依托的技术实力、以及多年的网站运营经验,为您提供专业的成都网站建设、成都全网营销推广及网站设计开发服务!
2、双击Command1添加如下代码
Private Sub Command1_Click()
Dim strFile As String
Dim intFile As Integer
Dim strData As String
strFile = "c:\学生成绩.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
3、按F8开始单步调试代码,点击Command1,进入单步调试功能,
4、多次按下F8或直接按下F5运行完成,就完成了读取文本文件内容并输出到立即窗口。
孩子,如果你从你单击事件上下手,就好办了,先弄明白,点击了什么,datagridview点击,可以获取单击的值,好办,用SQL语句去查询单击的这个值,把查到的结果再交给你要处理的地方,我常这么干。我从来不晓得什么表与表之间的关联,或者关系表什么鬼东西,但是我也可以操作很多张表,把它们的结果集一起显示出来。
Dim 表1 As New DataSet
Dim 对象1 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select top * from表名 where 字段名 = '" DataGridView1.CurrentCell.Value "' ", 数据源)
对象1.Fill(表1, " 表名")
DataGridView2.DataSource = 表1.Tables(" 表名")
表1 = Nothing
对象1 = Nothing
如果写成这样,还嫌不够,一定要按你的意思去写,那我真的要疯了。
这个例子,就是把表格1点击的值查一个结果集,在表格2上显示,不知有没有你想要的表达式?
一、二进制文件读写
1、写二进制数据到指定目录
==将barray字节数组中的数据创建在strFilename目录文件下,存储格式为二进制,False表示不添加,直接覆盖创建。
2、从指定路径下读取二进制数据到数组
==将目录中的文件读取到barry字节数组中,即读取二进制文件。
二、字符文件的读写
1、 将txtFile控件中的字符写到srtFileName指定目录,以创建方式。
2、从srtFileName目录中的文件读取到txtFile控件