VB.NET創(chuàng)建sql數(shù)據(jù)庫問題

我們需要引用ADO.具體的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",這里的"*.*"是指的時ADO的版本號,一般來說,應(yīng)用程序或ActiveX控件都具有向下兼容性,所以我們盡可能選擇比較新的版本.以確保程序在能識別舊版本Access的同時,也能識別較新版本的Access.

創(chuàng)新互聯(lián)提供成都做網(wǎng)站、成都網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計，成都品牌網(wǎng)站建設(shè)，廣告投放平臺等致力于企業(yè)網(wǎng)站建設(shè)與公司網(wǎng)站制作，十余年的網(wǎng)站開發(fā)和建站經(jīng)驗,助力企業(yè)信息化建設(shè)，成功案例突破近1000家,是您實現(xiàn)網(wǎng)站建設(shè)的好選擇.

然后我們需要在程序中創(chuàng)建一個對象.就好比我們在窗體上添加一個FileBox才能看到文件名一樣,只有創(chuàng)建了ADO對象,我們才能夠訪問數(shù)據(jù)庫.常用的對象有兩個,Connection和Recordset.

創(chuàng)建這兩個對象的具體方法是:

1.在引用后,使用New關(guān)鍵字,如

Private Conn As New ADODB.Connection

Private Reco As New ADODB.Recordset

2.在沒引用時,用CreateObject創(chuàng)建對象:

Dim Conn,Reco

Set Conn = CreateObject("ADODB.Connection")

Set Reco = CreateObject("ADODB.Recordset")

創(chuàng)建了對象之后,下一步我們要做的就是打開數(shù)據(jù)庫了.

先看下面的代碼,可以成功的打開數(shù)據(jù)庫.

Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"

這句代碼打開了D盤中的Main.mdb這個數(shù)據(jù)庫.

Connection.Open方法的第一個參數(shù)是連接代碼,它將傳遞給系統(tǒng)的數(shù)據(jù)庫引擎.前半部分"Provider= Microsoft.Jet.OLEDB.4.0",它表示了數(shù)據(jù)庫的類型.不同的數(shù)據(jù)庫可能會不同.后半句"Source=d:\main.mdb"它表示了數(shù)據(jù)庫所在的絕對路徑.

打開數(shù)據(jù)庫之后,還要打開表.假如數(shù)據(jù)庫中有一個表,表名為"Users",字段有兩個,一個為用戶名,一個為密碼.那么看以下代碼.

1.想返回"Users"中,[用戶名]為"去年煙花"的[密碼]

Recordset.open "Select 密碼 From Users Where 用戶名='去年煙花'",Connection,1,1

之后我們就可以把用戶輸入的密碼進行比較,看是否允許登錄.

If Recordset.eof and Recordset.bof then

Msgbox "用戶不存在!",16

Else

If PassWord =Recordset("密碼").value then

msgbox "登錄成功!",64

Else

msgbox "密碼錯誤!",32

End If

End If

Recordset.Close

2.假設(shè)Admin已經(jīng)成功登錄系統(tǒng),我們想把所有的用戶名和密碼都顯示出來

Recordset.open "Select * From Users",Connection,1,1

這時,表已經(jīng)被打開,我們就用以下代碼把它顯示出來.

Do whlie Not Recordset.eof

Print "用戶名: " Recordset("用戶名").value "密碼: " Recordset("密碼").value

Recordset.MoveNext

Loop

Recordset.Close

由以上代碼示例可以看出,打開表時,可以只打開其中的一個字段,也可以打開所有.第一個參數(shù)是SQL語句.

Select [字段名] From 表名 [Where 條件]

這里的條件可以省略.且字段名也可以用"*"來代替所有字段.

需要注意的是,如果你用(1)中的方法打開,那么(2)后面顯示的代碼就不能再用在(1)中.因為(1)里并沒有打開[用戶名]字段,所以這一句Recordset("密碼")就沒有值存在,還有可能出錯.

后面的條件,可以用"="、""、""等運算符.比如 "Where ID 32".(這里假設(shè)[ID]為數(shù)字型.)

這是打開的部分.第二個很重要的部分就是查詢記錄.

數(shù)據(jù)庫它并不是把所有記錄全部放到一個變量中備用的.而是以"當前記錄"的形式來返回一個值.所以我們想從中找到有用的信息,就必須要對信息進行定位/篩選.

定位:

移動到下一條 Recordset.MoveNext

移動到上一條 Recordset.MovePrevious

移動到最后一條 Recordset.MoveLast

移動到第一條 Recordset.MoveFrist

移動到某一條 Recordset.Move Number

篩選:

Recordset.Find "條件"

如:[用方法(2)打開表之后]

Private Sub Command1_Click()

Recordset.Find "用戶名=" "text1.text"

If Recordset.Eof True Then

Msgbox "該用戶的密碼是:" Recordset("密碼").value,64

Else

Msgbox "未找到該用戶的資料!",16

End If

End Sub

MoveNext 只有當Eof不為True時,才可用,否則發(fā)生錯誤.而MovePrevious剛是Bof不為True時....

而只要Eof 和 Bof中有一個不為真時,也就是說只要有一條記錄時,它就可以使用.

Find 方法中的條件和Open時的第一個參數(shù)中的條件表述方法是完全一致的.當在已打開的記錄集中,找不到該記錄時,Eof為True.找到則當前的值就是符合條件的記錄.

第三個部分就是添加/修改記錄.

修改記錄很簡單,先按以上的方法找到相關(guān)記錄之后,給記錄賦值就可以了.

比如:[(修改密碼)按方法(1)打開表之后]

Recordset("密碼").value = "123456"

Recordset.Updata

需要注意的就是,在修改完成后,要調(diào)用Updata方法,這樣修改才能生效.

而添加記錄則可以用以下代碼來實現(xiàn):

Recordset.addnew

Recordset("用戶名").value = "Admin"

Recordset("密碼").value = "Admin"

Recordset.Updata

這里,先要調(diào)用Addnew方法,增加一條新記錄,然后對這個新記錄中的各字段賦值,最后再調(diào)用Updata方法.

到這里就差不多了,最后說一下上面提到的幾個方法.

Recordset.Open SQL語句,數(shù)據(jù)源,游標類型,打開方法

SQL語句不用說了,就是Select那啥的,目的就是按要求從表中返回數(shù)據(jù)

數(shù)據(jù)源就是一個打開之后的Connection對象.

去他媽的游標類型,填1就可以了 [偷笑ing]

打開方法對應(yīng)了幾個常數(shù),具體哪幾個可以從對象瀏覽器里看.

對應(yīng)數(shù)值的意義:

1 只讀 2 獨占 3 可寫 4 自已可寫,別人可讀

Connection.open 連接代碼,服務(wù)器用戶名,密碼

這里的連接代碼就不在多說了,服務(wù)器用戶名,密碼只有在連接遠程數(shù)據(jù)庫時才用到.

如何使用.NET和VB編程創(chuàng)建SQL Server

使用DataTable

假設(shè)myDT為DataTable實例，并且已經(jīng)存儲了你所要比較的數(shù)據(jù)庫表的數(shù)據(jù)

字段名暫定：f1,f2,f3......fn

與表中第n條記錄的f2字段做比較，格式簡單如下

If myDT.Rows(n).Item(f2)=Trim(TextBox1.Text) Then ..........

不知道這樣能否看懂

SQL語句沒什么格式不同

有關(guān)VB的SQL語句中的建表語句

create table 是建表的關(guān)鍵字

[自動編號字段] int IDENTITY (1,1) PRIMARY KEY

這個是建字段的格式 字段名 類型 屬性……

其中

int是類型

IDENTITY 是標識列屬性

PRIMARY KEY 是設(shè)置該字段為主鍵列

其他就不列舉了

在VB中如何用SQL語言在一個數(shù)據(jù)庫中建立一個表？

創(chuàng)建MDB文件

【工程】菜單－【引用】，在彈出的窗體中選擇【Microsoft ADO Ext. 2.X for DDL and Security】，“2.X”表示版本。 Dim cat As New ADOX.Catalog '日志變量

Dim tbl As New ADOX.Table '表變量

Dim pstr As String '數(shù)據(jù)庫連接配置

Dim db As String '數(shù)據(jù)庫名及路徑

db = App.Path "\conmag.mdb"

pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=xfenghany;" "data source=" db

cat.Create pstr '創(chuàng)建庫文件

cat.ActiveConnection = pstr '連接庫

tbl.Name = "coner" '表定義

tbl.Columns.Append "cname", adVarWChar, 50 '表定義

tbl.Columns.Append "ccall", adVarWChar, 50 '表定義

tbl.Columns.Append "ctele", adVarWChar, 50 '表定義

tbl.Columns.Append "cext", adVarWChar, 50 '表定義

tbl.Columns.Append "cmail", adVarWChar, 50 '表定義

tbl.Columns.Append "chome", adVarWChar, 50 '表定義

tbl.Columns.Append "cwork", adVarWChar, 50 '表定義

tbl.Columns.Append "cgx", adVarWChar, 50 '表定義

cat.Tables.Append tbl '生成表

Set tbl = Nothing Set tbl = New ADOX.Table

tbl.Name = "tbltwo" '表定義

tbl.Columns.Append "nosee", adVarWChar, 50 '表定義

cat.Tables.Append tbl '生成表

Set tbl = Nothing指示列的數(shù)據(jù)類型 常量 說明

adTinyInt 精確的數(shù)字值，精度為小數(shù)點后 3 位。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdSmallInt 精確數(shù)字值，精度為小數(shù)點后 5 位。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdInteger 精確數(shù)字值，精度為小數(shù)點后 10 位。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdBigInt 精確數(shù)字值，精度為小數(shù)點后 19 位。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdUnsignedTinyInt 無符號的 adTinyInt。

AdUnsignedSmallInt 無符號的 adSmallInt。

AdUnsignedInt 無符號的 adInteger。

AdUnsignedBigInt 無符號的 adBigInt。

AdSingle 單精度浮點數(shù)。

AdDouble 雙精度浮點數(shù)。

AdCurrency 貨幣類型。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdDecimal 變體型十進制類型。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdNumeric 數(shù)值類型。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdBoolean 變體布爾類型。0 為假而 ~0 為真。

AdUserDefined 用戶定義的變量長度數(shù)據(jù)類型。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdVariant 自動變體型。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdGuid 全域唯一標識符。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdDate 自動日期。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdDBDate 數(shù)據(jù)庫日期數(shù)據(jù)結(jié)構(gòu)。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdDBTime 數(shù)據(jù)庫時間數(shù)據(jù)結(jié)構(gòu)。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdDBTimestamp 數(shù)據(jù)庫時間戳結(jié)構(gòu)。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdBSTR BSTR 的指針。關(guān)于該類型的詳細資料，請參閱“OLE DB 程序員參考”。

AdChar 定長字符串。

AdVarChar 變長字符串。

AdLongVarChar 長變長字符串。

AdWChar 寬定長字符串。

AdVarWChar 寬變長字符串。

AdLongVarWChar 長、寬變長字符串。

AdBinary 定長二進制數(shù)據(jù)。

AdVarBinary 變長二進制數(shù)據(jù)。

AdLongVarBinary 長變長二進制數(shù)據(jù)。

VB.NET中如何用SQL語句建表（復(fù)制表）？謝謝了！

分類: 電腦/網(wǎng)絡(luò) 程序設(shè)計 其他編程語言

問題描述:

在SQL數(shù)據(jù)庫里已有一個現(xiàn)成的空數(shù)據(jù)表（只有字段、沒有數(shù)據(jù)），請問高手，怎樣在VB.NET中用SQL語句把該數(shù)據(jù)庫中的那個表復(fù)制一個到該數(shù)據(jù)庫（字段不變、數(shù)據(jù)為空）只是把數(shù)據(jù)表的名改了？

謝謝！謝謝！

解析:

select * into 新表 from 舊表

使用 SELECT INTO 插入行

SELECT INTO 語句創(chuàng)建一個新表，并用 SELECT 的結(jié)果集填充該表。新表的結(jié)構(gòu)由選擇列表中表達式的特性定義，例如：

SELECT Shippers.*, Link.Address, Link.City,

Link.Region, Link.PostalCode

INTO NewShippers

FROM Shippers

JOIN LinkServer.DB.dbo.Shippers AS Link

ON (Shippers.ShipperID = Link.ShipperID)

SELECT INTO 可將幾個表或視圖中的數(shù)據(jù)組合成一個表。也可用于創(chuàng)建一個包含選自鏈接服務(wù)器的數(shù)據(jù)的新表。

本文名稱：關(guān)于vb.net創(chuàng)建sql表的信息
文章位置：http://chinadenli.net/article18/dodcddp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護、自適應(yīng)網(wǎng)站、App設(shè)計、網(wǎng)站導(dǎo)航、品牌網(wǎng)站設(shè)計、定制網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)