vb.net的數(shù)據(jù)庫連接

1·綁定數(shù)據(jù)源來進(jìn)行連接

在江蘇等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè) 網(wǎng)站設(shè)計(jì)制作定制網(wǎng)站建設(shè),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站建設(shè),成都全網(wǎng)營銷推廣,外貿(mào)網(wǎng)站制作,江蘇網(wǎng)站建設(shè)費(fèi)用合理。

2.用代碼連接

先到數(shù)據(jù)庫建立一個(gè)數(shù)據(jù)庫和相應(yīng)的表

連接數(shù)據(jù)庫的代碼：

Dim str As String = "Data Source=服務(wù)器名;Initial Catalog=數(shù)據(jù)庫名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

try

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

Return True

Catch ex As Exception

MsgBox(ex.ToString)

Return False

End Try

登錄代碼：Dim str As String = "Data Source=服務(wù)器名;Initial Catalog=數(shù)據(jù)庫名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

sqlstr = "Select * From Amd Where AmdName='" TextBox1.Text "' And AmdPwd = '" TextBox2.Text "'"

Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)

Dim dr As SqlClient.SqlDataReader

dr = sqlcmd.ExecuteReader

If dr.Read = True Then '判斷一條記錄為真

kf.Show() '顯示下個(gè)窗體

Me.Hide() ’隱藏當(dāng)前窗體

Else

MessageBox.Show("輸入信息有誤！", "提示")

TextBox1.Text = ""

TextBox2.Text = ""

End If

請(qǐng)高手指教vb.net連接Excel該怎么寫

在項(xiàng)目中添加Excel類庫的引用，然后在VB中定義Excel 的Application，WorkBook和Worksheet

然后對(duì)Worksheet中的Range進(jìn)行操作，不用像Access那樣建立ADO什么的連接。

比如

Dim exlApp as Excel.Application = Createobject("Excel.Application")

if exlApp is Nothing then exit sub

dim xBook as Excel.WorkBook=exlApp.Workbook.add

if xBook is Nothing then exit sub

dim xSheet as excel.WorkSheet =xbook.WorkSheet.Add

if xSheet is Nothing Then exit sub

with xSheet

.Range("A1").value="Excel Application Test"

.Range("B1" ":D2").Merge

.Range("B1" ":D2").Value="合并表格內(nèi)容"

end with！

vb.net2012如何連接excel2010?

使用 ADO 連接到 Excel

ADO 使用 MDAC 中以下兩個(gè) OLE DB 提供程序中的任何一個(gè)都可以連接到 Excel 數(shù)據(jù)文件。

Microsoft Jet OLE DB Provider — 或 —Microsoft OLE DB Provider for ODBC Drivers

使用 Microsoft Jet OLE DB Provider

Jet 提供程序只需要兩條信息就可以連接到 Excel 數(shù)據(jù)源：路徑（包括文件名），和 Excel 文件版本。

Jet 提供程序使用連接字符串

Dim cn as ADODB.Connection

Set cn = New ADODB.Connection

With cn

.Provider = "Microsoft.Jet.OLEDB.4.0"

.ConnectionString = "Data Source=C:\MyFolder\MyWorkbook.xls;" _

"Extended Properties=Excel 8.0;"

.Open

End With

提供程序版本：必須使用 Jet 4.0 提供程序；Jet 3.51 提供程序不支持 Jet ISAM 驅(qū)動(dòng)程序。如果指定了 Jet 3.51 提供程序，在運(yùn)行時(shí)會(huì)出現(xiàn)以下錯(cuò)誤信息：

Couldn't find installable ISAM.

Excel 版本：對(duì)于 Excel 95 工作簿（Excel 版本 7.0），應(yīng)指定 Excel 5.0；對(duì)于 Excel 97、Excel 2000 或 Excel 2002 (XP) 工作簿（Excel 版本 8.0、9.0 和 10.0），應(yīng)指定 Excel 8.0 版本。

使用“數(shù)據(jù)鏈接屬性”對(duì)話框的 Jet 提供程序

如果在應(yīng)用程序中使用“ADO 數(shù)據(jù)控件”或“數(shù)據(jù)環(huán)境”，就會(huì)出現(xiàn)數(shù)據(jù)鏈接屬性對(duì)話框來收集必要的連接設(shè)置。

在提供程序選項(xiàng)卡上，選擇 Jet 4.0 提供程序；Jet 3.51 提供程序不支持 Jet ISAM 驅(qū)動(dòng)程序。如果指定了 Jet 3.51 提供程序，在運(yùn)行時(shí)會(huì)出現(xiàn)以下錯(cuò)誤信息：

Couldn't find installable ISAM.

在連接選項(xiàng)卡上，瀏覽到工作簿文件。忽略“用戶 ID”和“密碼”項(xiàng)，因?yàn)檫@些不適用于 Excel 連接。（無法打開受密碼保護(hù)的 Excel 文件作為數(shù)據(jù)源。）

在所有選項(xiàng)卡上，從列表中選擇擴(kuò)展屬性，然后單擊編輯值。輸入 Excel 8.0;，用分號(hào) (;) 將其與任何其他已有的項(xiàng)分隔。如果忽略此步驟，測(cè)試連接時(shí)將出現(xiàn)一條錯(cuò)誤信息。這是因?yàn)槿绻涣硇兄付ǎ琂et 提供程序期望 Microsoft Access 數(shù)據(jù)庫。返回到連接選項(xiàng)卡，并單擊測(cè)試連接。將出現(xiàn)一個(gè)消息框，通知測(cè)試已成功完成即可。

vb.net怎么訪問excel表格

我的是2007版本，其它類似

1.在工程中引用Microsoft Excel 12.0 Object Library

2、在通用對(duì)象的聲明過程中定義EXCEL對(duì)象：

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

3、在程序中操作VB.NET EXCEL常用命令：

Set xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對(duì)象

Set xlBook = xlApp.Workbooks.Open("文件名") '打開已經(jīng)存在的EXCEL工件簿文件

xlApp.Visible = True '設(shè)置EXCEL對(duì)象可見（或不可見）

Set xlSheet = xlBook.Worksheets("表名") '設(shè)置活動(dòng)工作表

xlSheet.Cells(row, col) =值 '給單元格（row,col）賦值

xlSheet.PrintOut '打印工作表

xlBook.Close (True) '關(guān)閉工作簿

xlApp.Quit '結(jié)束EXCEL對(duì)象

Set xlApp = Nothing '釋放xlApp對(duì)象

xlBook.RunAutoMacros (xlAutoOpen) '運(yùn)行EXCEL啟動(dòng)宏 xlBook.RunAutoMacros (xlAutoClose) '運(yùn)行EXCEL關(guān)閉宏

還有很多，這個(gè)要自己慢慢摸索