vb.net 怎么操作数据库

如果楼主熟悉VB6，可以直接在项目中添加ADODB的Com引用，这样你就可以像VB6那样操作数据库了！

创新互联公司是一家集网站建设,富平企业网站建设,富平品牌网站建设,网站定制,富平网站建设报价,网络营销,网络优化,富平网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

另外

.NET Framework中连接数据库要用到ADO.NET。如果要操作Access数据库，要用到System.Data.OleDb命名空间下的许多类。

比如按楼主所说，“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”：

'首先导入命名空间

Imports System.Data

Imports System.Data.OleDb

'然后在某一个事件处理程序中写：

Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=数据库.accdb;Jet OLEDB:Database Password=MyDbPassword")

Dim command As New OleDbCommand("Select * From 数据表", conn)

conn.Open() '打开数据库连接

Dim reader As OleDbDataReader = command.ExecuteReader() '执行SQL语句，返回OleDbDataReader 对象

Do While reader.Read() '读取一条数据

textbox1.Text += reader("一些数据") VbCrLf

Loop

reader.Close() '关闭OleDbDataReader

conn.Close() '关闭连接

vb.net 什么是CRL

CLR即公共语言运行时（Common Language Runtime，简称CRL），就是微软为.net产品构建的运行环境，与java的JVM类似，通俗的讲就是.net虚拟机。CLR上实际运行的并不是我们通常所用的编程语言(例如C#、VB等)，而是一种字节码形态的“中间语言”。这意味着只要能将代码编译成这种特定的“中间语言”(MSIL),任何语言的产品都能运行在CLR上。CLR通常被运行在Windows系统上，但是也有一些非Windows的版本。这意味着.Net也很容易实现“跨平台”。CLR是.net系列产品运行的基础。

VB.NET是微软Visual Studio.NET中的一门语言，其中还有C#和J#等语言。它是通过.NET CLR (Common Language Runtime)来解析的，语法是基于传统的VB的。

.Net Framework是一个支持多种开发语言的开发平台，然而这种多语言支持的特性是以CLR为基础的。

C#中有没有和VB.net中 controlchars.crlf 一样的类？

在C#中，你可以使用 "\r\n" 来代表controlchars.crlf。或者可以使用System.Environment.NewLine

这个程序输出的结果为什么只显示在一行

此程序本身没有任何问题，估计是textbox的属性问题。你把textbox的Mutiline行为改为True，默认的是False。Multiline行为是用来控制textbox中的多行显示，改过来后应该就能正常显示了。 textbox1的输出语句加上TextBox1.text是为了控制循环显示数组元素，如果去掉了只能显示数组中最后一个元素，前面的会被覆盖掉。后面的controchars.crlf必须加上，那是VB.net的控制字符，表示一个回车换行符，如果去掉了肯定不会分行显示了。

记得采纳啊

VB.NET怎么作一题，产生10个100以内的随机正整数，求最大，最小值，并显示。

'产生10个正整数

Dim intArr(10) As Integer

For i As Integer = 1 To 10

intArr(i - 1) = Int(Rnd() * 99) + 1

Next

'取最小值

Dim intMin As Integer = intArr(0)

For j As Integer = 1 To UBound(intArr) - 1

If intMin intArr(j) Then intMin = intArr(j)

Next

'取最大值

Dim intMax As Integer = intArr(0)

For j As Integer = 1 To UBound(intArr) - 1

If intMax intArr(j) Then intMax = intArr(j)

Next

Dim strTemp As String = ""

For tempi As Integer = 0 To UBound(intArr) - 1

strTemp = strTemp intArr(tempi) ","

Next

MessageBox.Show(strTemp ControlChars.CrLf "min: " intMin.ToString ControlChars.CrLf "max: " intMax.ToString)

网站栏目：包含vb.netcrlf的词条
文章路径：http://chengdu.cdxwcx.cn/article/heehjs.html