用vb點(diǎn)虐 怎樣建立一個(gè)mdb數(shù)據(jù)庫及一張表

首先在項(xiàng)目的VB.NET界面，使用菜單【項(xiàng)目】--【添加引用】--【COM】

公司主營(yíng)業(yè)務(wù)：成都網(wǎng)站建設(shè)、網(wǎng)站制作、移動(dòng)網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競(jìng)爭(zhēng)能力。成都創(chuàng)新互聯(lián)是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對(duì)我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)推出河口免費(fèi)做網(wǎng)站回饋大家。

選擇 ?Microsoft ADO Ext. 2.x for DDL and Security

然后單擊【確定】，完成引用。

完整代碼如下：

Imports?ADOX

Public?Class?Form1

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

'創(chuàng)建空的access數(shù)據(jù)庫文件--數(shù)據(jù)庫文件.mdb，密碼為123

Dim?Mycat?As?Catalog?=?New?Catalog()

襪鏈??????Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet?OLEDB:Engine?Type=5;Data?Source=?數(shù)據(jù)庫文件.mdb;Jet?OLEDB:Database?Password=123")

'以下代碼創(chuàng)建一攜團(tuán)個(gè)名為“實(shí)驗(yàn)數(shù)據(jù)表”

Dim?MyTable?As?ADOX.Table?=?New?ADOX.Table?????????'定義新表

MyTable.Name?=?"實(shí)驗(yàn)數(shù)據(jù)表"????'表命名

'給表“實(shí)驗(yàn)數(shù)據(jù)表”?創(chuàng)建一個(gè)字符串字段，字段名“姓名”

MyTable.Columns.Append("姓名",?,?ADOX.DataTypeEnum.adWChar)

'給表“實(shí)驗(yàn)數(shù)據(jù)表”?創(chuàng)建一個(gè)整數(shù)字段，字段名“學(xué)號(hào)”

MyTable.Columns.Append("學(xué)號(hào)",?ADOX.DataTypeEnum.adInteger)????'追加一個(gè)數(shù)字型字段

'給字段“辯好橘學(xué)號(hào)”創(chuàng)建一個(gè)主鍵“PimaryKey_Field”????????

MyTable.Keys.Append("學(xué)號(hào)",?ADOX.KeyTypeEnum.adKeyPrimary,?"學(xué)號(hào)")

Mycat.Tables.Append(MyTable)?'把所有的新字段追加到表

MyTable?=?Nothing

Mycat?=?Nothing

End?Sub

End?Class

如何用VB.NET做水晶報(bào)表?

CrystalReportViewer

dataset 定義數(shù)據(jù)源

.rpt 文件描述具體報(bào)表樣式

再加一個(gè)調(diào)用報(bào)表的FORM，就可以實(shí)現(xiàn)簡(jiǎn)單的報(bào)表功能

Option Explicit

dim Report as New Cystal1

Private Sub Form_Load()

　Screen.MousePointer = vbHourglass

　'調(diào)用水茄握晶報(bào)表顫搭慶時(shí)置鼠標(biāo)為沙漏狀 CRViewer91.ReportSource = Report '該語句的枝嫌賦值將在后面被修改

　CRViewer91.ViewReport

　Screen.MousePointer = vbDefault '調(diào)用水晶報(bào)表完成后置鼠標(biāo)為默認(rèn)形狀

End Sub

Private Sub Form_Resize()

　CRViewer91.Top = 0

　CRViewer91.Left = 0

　CRViewer91.Height = ScaleHeight

　CRViewer91.Width = ScaleWidth

End Sub

vb點(diǎn)虐 水晶報(bào)表問題：水晶報(bào)表數(shù)據(jù)來源與數(shù)據(jù)庫，怎樣把數(shù)據(jù)庫中同一個(gè)字段的各個(gè)小類按不同屬性分為大類

Private Sub daywaterlevel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'創(chuàng)建一個(gè)內(nèi)含連接信息的數(shù)據(jù)庫鏈接對(duì)象

Dim myConnection As New SqlConnection

myConnection.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=cwfzx;server=yllsony;Connect Timeout=30 "

'定義一個(gè)報(bào)表對(duì)象

Dim myreportDoc As New ReportDocument

Dim myDBConncetionInfo As ConnectionInfo

Dim myTable As Table

'循環(huán)念吵處理Tables集合中的每一個(gè)Table對(duì)象并設(shè)置登陸信息

For Each myTable In myReportDoc.Database.Tables

myDBConncetionInfo = myTable.LogOnInfo.ConnectionInfo()

With myDBConncetionInfo

.ServerName = "yllsony "

.databaseName = "cwfzx "

.UserId = "sa "

.Password = "636490 "

End With

Next

'定義一個(gè)sqldataAdapter類帆碼型的變量

Dim MyCommand As SqlDataAdapter

'創(chuàng)建數(shù)據(jù)集對(duì)象

Dim ds As DataSet = New dsDayWater

'創(chuàng)建仔轎侍一個(gè)SqlDataAdapter對(duì)象

MyCommand = New SqlDataAdapter( "select stcd,tm,z from tb_river_r ", myConnection)

'鏈接到數(shù)據(jù)庫,提起數(shù)據(jù),然后中斷鏈接

MyCommand.Fill(ds, "tb_river_r ")

'載入報(bào)表

myReportDoc.Load(Application.StartupPath "\crdaywater.rpt ")

'將數(shù)據(jù)集ds傳遞給報(bào)表對(duì)象

myReportDoc.SetDataSource(ds)

'綁定報(bào)表查看器控件

CrtViewerWater.ReportSource = myReportDoc

End Sub

當(dāng)前文章：vb點(diǎn)虐 報(bào)表數(shù)據(jù)庫 vbnet reportviewer
新聞來源：http://jinyejixie.com/article28/ddpegcp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供域名注冊(cè)、搜索引擎優(yōu)化、做網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、品牌網(wǎng)站建設(shè)

廣告

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