扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
a = ""
创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站制作、网站设计、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的阜宁网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
TextBox1.Text =""
FileOpen(1, Application.StartupPath() "\file\t1.txt", OpenMode.Input)
Do While Not EOF(1)
Input(1, a)
TextBox1.Text =TextBox1.Text a vbcrlf
Loop
一次性读取
a=File.ReadAllText(Application.StartupPath() "\file\t1.txt")
Dim sr As New System.IO.StreamReader(Application.StartupPath "\1.txt",System.Text.Encoding.GetEncoding("GB2312")) 中文默认是 GB2312格式的.
给你一个VB2010读写文件的例子吧
Dim name As String = ""
Dim age As Integer
name = InputBox("请输入姓名")
age = InputBox("请输入年龄")
FileOpen(1, "d:\信息.txt", OpenMode.Append)
WriteLine(1, name, age)
FileClose(1)
FileOpen(1, "d:\信息.txt", OpenMode.Input)
Dim h As String
Dim j As String
Dim f As String
f = ""
h = ""
j = ""
While EOF(1) = False
f = LineInput(1) vbCrLf f
End While
FileClose(1)
MsgBox("姓名" " " "年龄" vbCrLf f)
定义一个表对象，定义一个连接对象，定义一个连接字符串变量；
然后定义一个查询字符串变量，你对照着例子，拼出来一个连接对象；
打开连接，执行查询并填充结果到表对象。
然后，按照表里面的顺序，一行一行的读取每一列的值。
请照着例子学。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网