vb.net读取数据库表 VB调用数据库
vb.net 读取sql数据库字段
我是用C#.net写出来的
创新互联成都网站建设按需制作网站，是成都网站设计公司,为混凝土搅拌站提供网站建设服务,有成熟的网站定制合作流程，提供网站定制设计服务：原型图制作、网站创意设计、前端HTML5制作、后台程序开发等。成都网站营销推广热线：028-86922220
SqlConnection myConn = new SqlConnection(sqlconnstring);
myConn.Open();
SqlDataAdapter thisAdapter = new SqlDataAdapter("SELECT * from 表名", myConn);
thisAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey;
DataTable thisDataTable = new DataTable();
thisAdapter.Fill(thisDataTable);
DataTableReader thisReader = new DataTableReader(thisDataTable);
DataTable schemaTable = thisReader.GetSchemaTable();
foreach (DataRow dr in schemaTable.Rows)
{
MessageBox.Show(dr["ColumnName"].ToString());获取字段名称(f1 f2 f3)
MessageBox.Show(dr["ColumnSize"].ToString());获取字段长度(2 2 2)
MessageBox.Show(dr["DataType"].ToString());获取字段类(str str int)
}
vb.net从数据库读取信息，myDA1.Fill(ds1, "kucun")，如何在ds1.Tables中查询想要的信息
下面是逐个显示第一条记录的各个字段值，通过实例，你应该可以操作想要的信息数据了：
'如果表里的记录数大于0
If ds1.Tables("kucun").Rows.Count 0 Then
'依照数据表的字段值循环
For i = 0 To ds1.Tables("kucun").Columns.Count - 1
'显示第一条记录的第i个字段名和字段值
MsgBox(ds1.Tables("kucun").Columns(i).ColumnName ":" ds1.Tables("kucun").Rows(0)(i))
Next
End If
求用vb.net写一个读取数据库数据的简单操作。
Option Explicit On
Option Strict On
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Program
Public Shared Sub Main()
Dim connectionString As String = _
"Data Source=(local);Initial Catalog=Northwind;" _
"Integrated Security=true"
' Provide the query string with a parameter placeholder.
Dim queryString As String = _
"SELECT ProductID, UnitPrice, ProductName from dbo.Products " _
"WHERE UnitPrice @pricePoint " _
"ORDER BY UnitPrice DESC;"
' Specify the parameter value.
Dim paramValue As Integer = 5
' Create and open the connection in a using block. This
' ensures that all resources will be closed and disposed
' when the code exits.
Using connection As New SqlConnection(connectionString)
' Create the Command and Parameter objects.
Dim command As New SqlCommand(queryString, connection)
command.Parameters.AddWithValue("@pricePoint", paramValue)
' Open the connection in a try/catch block.
' Create and execute the DataReader, writing the result
' set to the console window.
Try
connection.Open()
Dim dataReader As SqlDataReader = _
command.ExecuteReader()
Do While dataReader.Read()
Console.WriteLine( _
vbTab "{0}" vbTab "{1}" vbTab "{2}", _
dataReader(0), dataReader(1), dataReader(2))
Loop
dataReader.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Console.ReadLine()
End Using
End Sub
End Class
这是我在vs2010中微软自带的MSDN示例代码里面拷的，是关于ADO.net连接sql的操作。
希望对你有帮助。 如果你还需要其他的，我也可以再拷给你看。
分享文章：vb.net读取数据库表 VB调用数据库
文章起源：http://cdiso.cn/article/hgoieh.html
