vb.net自制数据库 vb数据库编程经典教程

求用vb.net写一个读取数据库数据的简单操作。

Option Explicit On

巴林右旗网站制作公司哪家好，找成都创新互联公司！从网页设计、网站建设、微信开发、APP开发、响应式网站建设等网站项目制作，到程序开发，运营维护。成都创新互联公司从2013年开始到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联公司。

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 建立数据库(access),并添加一条数据进数据库的代码'20分

....你参考参考吧：

数据库结构:

--------------------------------------

test.mdb [放在BIN目录下]

表 test(id 自动编号, img OLE)

----------------------------------------------

代码:

----------------------------------------------------

使用 一个 openfiledialog ,两个 picturebox

----------------------------------------------------------------------

Imports System.IO

Public Class Form1

Inherits System.Windows.Forms.Form

Dim cnn As Data.OleDb.OleDbConnection

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Me.Dispose(True)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If OpenFileDialog1.ShowDialog = DialogResult.OK Then

PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

End If

End Sub

Private Sub DBInit()

Try

cnn = New Data.OleDb.OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=" Application.StartupPath "\test.mdb")

cnn.Open()

Catch exp As OleDb.OleDbException

MsgBox(exp.Message)

End

End Try

End Sub

Private Sub DBRelease()

cnn.Close()

cnn = Nothing

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If PictureBox1.Image Is Nothing Then

MsgBox("请先选择图片", MsgBoxStyle.Exclamation)

Exit Sub

End If

Dim fs As FileStream = New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)

Dim bt(fs.Length) As Byte

fs.Read(bt, 0, fs.Length)

fs.Close()

fs = Nothing

Dim oleCmd As OleDb.OleDbCommand = New OleDb.OleDbCommand

DBInit()

oleCmd.Connection = cnn

oleCmd.CommandType = CommandType.Text

oleCmd.CommandText = "INSERT INTO test (img) VALUES (@img)"

oleCmd.Parameters.Add("@img", OleDb.OleDbType.Binary).Value = bt

oleCmd.ExecuteNonQuery()

oleCmd = Nothing

DBRelease()

MsgBox("图片插入成功")

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim oleCmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT img FROM test WHERE id=1")

oleCmd.CommandType = CommandType.Text

DBInit()

oleCmd.Connection = cnn

Dim dr As OleDb.OleDbDataReader = oleCmd.ExecuteReader(CommandBehavior.SingleRow)

If dr.Read Then

If Not IsDBNull(dr.Item(0)) Then

Dim bt() As Byte = dr.Item(0)

Dim ms As MemoryStream = New MemoryStream(bt)

PictureBox2.Image = Image.FromStream(ms)

Else

MsgBox("无图片")

End If

Else

MsgBox("无数据")

End If

dr.Close()

dr = Nothing

oleCmd = Nothing

DBRelease()

End Sub

End Class

VB.NET如何生成ACCESS数据库？并生成表。 VB.NET

我的需求就是先填写好表和表中字段的名称，然后点击一个按钮，就在指定的路径生成一个ACCESS数据库。而不是事先手动创建。 请知道的各位附上完整代码，本人刚接触VB.NET，有些东西还不是很了解。谢谢。

vb.net怎么动态创建access数据库和表

追问： 只有那个办法？ 回答： 是，这跟SQL Server不同，ACCESS是独立文件的，而且它能支持的SQL语句有限，一般是使用ACCESS来创建，若要动态创建，只能用ADO了，但Sql Server就不同了，它可以执行复杂的SQL语句，相对来说，动态创建数据库和表，要比ACCESS方便。 追问： 创建表的话能用SQL语句了吗？ 回答： 没试过，应该不行 追问： 那你能告诉我下怎么创建表吗？创建数据库我会了 回答： 可以使用DAO对象来操作，注意是DAO对象，不是ADO对象！ 追问： 能不能详细说下过程呢？创建表的过程 回答： 创建表的过程用DAO.net和ADO.net都可以，创建数据库可以用DAO对象，既然你已经可以创建数据库，那么创建表只要先连接到这个数据库，然后用create table语句来执行就行了，可以使用OledbConnection先连接这个库，接着用OledbCommand对象的ExecuteNonQuery来执行create table语句即可。

基于VB.NET的windows窗体程序如何连接sql2008数据库，制作一个登录界面

这个问题好宽泛，简单说下步骤吧：

简单来说，直接连接需要使用SQLConnection、SQLDataAdapter、SQLCommand、Datatable四个控件，先写好连接字符串，然后建立连接，写好SQL语句，通过DataAdapter从数据库读取数据到Datatable。这样只有在SQL服务器中附加数据库才能实现访问。还可以使用DSN实现数据库连接，控件依次更换为ODBCConnection、ODBCDataAdapter、ODBCCommand、datatable、基本步骤和上面说的一样。

SQL语句就是从数据库查用户名对应的密码，将数据从数据库读取到DataTable后，与用户输入的密码比对，相符则登陆成功，否则提示错误。

过程中的细节问题欢迎追问