大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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 mycon As New SqlConnection(connstrs)
Dim sqlStr As String = "SELECT * FROM [Column] FROM [Table]"
Dim cmd As New SqlCommand(sqlStr, mycon)
Dim reader = cmd.ExecuteReader()
Dim i As Integer = 1
While reader.Read()
Dim txt As New TextBox()
txt.Name = "txt" + i
txt.Size = New Size(100, 20) '文本框大小
txt.Location = New Point(50, i * 20 + 20)'left:50 top:随便写的,自己看着调
txt.Text = reader.GetValue(0).ToString()
Me.Controls.Add(txt) 'Me 可以改为你要添加上去的对象
End While
'未经过运行,自己调试看看能否OK
调用这个DataGridView控件里面的属性面板、可以把它的显示行数目改一下就可以了,其中还有一个page属性,设置分页显示的。
点虐 应该提供了此类函数。如C#就有File.AppendAllText(filename,string)用于追加内容,File.ReadAllLine(filename)用于读取多行。