VB.NET對(duì)SQL數(shù)據(jù)庫(kù)怎樣連接啊？求代碼？

VB.NET中有控件可以真接接點(diǎn)擊屬性進(jìn)行連接配置.

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

SqlConnect數(shù)據(jù)連接控件.點(diǎn)擊ConnectionString屬性進(jìn)行配置就可以了.

VB.NET中沒(méi)有RecordSet了.取而代之的是DataSet.

在VB.net中可以先用SqlConnection對(duì)像來(lái)連接數(shù)據(jù)庫(kù)再用SqlDataAdapter對(duì)像來(lái)讀取數(shù)據(jù)并填充到DataSet里.然后就可以進(jìn)行數(shù)據(jù)綁定了.

例:

dim

conn

as

SqlConnection

dim

da

as

SqlDataAdapter

dim

ds

as

Dataset

set

conn

=

new

SqlConnection

conn.ConnectionString="server=serverIP;database=databasename;uid=userid;pwd=password";

conn.open

da

=

new

SqlDataAdapter

(,conn)

da.fill(ds)

關(guān)于vb.net 和SQL Server數(shù)據(jù)庫(kù)

pplication

Set xlapp = CreateObject("Excel.Application") '激活EXCEL

xlapp.Visible = True '讓EXCEL可見(jiàn)

Set xlbook = xlapp.Workbooks.Open(App.Path + "個(gè)人簡(jiǎn)歷.xlt")

'打開(kāi)工作簿，strDestination為一個(gè)EXCEL報(bào)表文件

Set xlsheet = xlbook.Worksheets(1) '設(shè)定工作表

這個(gè)有點(diǎn)像是vb6的、vb.net也有相應(yīng)的方法的.總之是

excel.application 用到這個(gè)就可以了.必要的話導(dǎo)入excel的dll文件.

這樣你就發(fā)現(xiàn)、可以用vb.net來(lái)對(duì)excel來(lái)操作.你可以查下微軟的msdn、有具體的屬性方法.

如:

Dim ef As New Excel.Application

Dim es As New Excel.Worksheet

Dim er As Excel.Range

ef.Workbooks.Add()

es = ef.Worksheets("sheet1")

es.Activate()

er = es.Range("a1:C1")

er.Select()

er.Merge()

er.Value = "gordon1117" ef.Visible = True 目前應(yīng)用了三個(gè)對(duì)象:application,worksheet和range,三者的關(guān)系應(yīng)該清晰,做到這點(diǎn)就能從基本開(kāi)始做了:)格式設(shè)置都在range對(duì)象,只不過(guò)在設(shè)置對(duì)齊屬性上是verticalalignment和horizon

range 用來(lái)定位、

然后你可以循環(huán)把數(shù)據(jù)輸出到指定了格式的excel文件里了吧、其實(shí)連格式都是可以程序控制的好好學(xué)下吧.

可以參考一下這篇文章

請(qǐng)問(wèn)：VB.NET怎么連接SQL？

Public sqlcon As System.Data.SqlClient.SqlConnection

Public sqladapter As System.Data.SqlClient.SqlDataAdapter

Public command As System.Data.SqlClient.SqlCommand

Public ds As System.Data.DataSet

Public dr As System.Data.DataTable

sqlcon = New System.Data.SqlClient.SqlConnection

sqlcon.ConnectionString = "Server=(local); Initial Catalog=test1 ; User ID="數(shù)據(jù)庫(kù)sa用戶"; Password="數(shù)據(jù)庫(kù)密碼""

ds = New System.Data.DataSet

dr = New System.Data.DataTable(" test2 ")

ds.Tables.Add(dr)

sqladapter = New System.Data.SqlClient.SqlDataAdapter("select * from test2 ", sqlcon)

sqlcon.Open()

sqladapter.Fill(dr)

sqlcon.Close()

界面上控件

DataGridView1.DataSource = dr

vb.net怎么連接SQL數(shù)據(jù)庫(kù)

Imports?System.Data

Imports?System.Data.SqlClient

Public?Class?Form1

Inherits?System.Windows.Forms.Form

'數(shù)據(jù)庫(kù)連接對(duì)象

'錯(cuò)誤的寫(xiě)法??

'Dim?objConnection?As?SqlConnection?=?New?SqlConnection("server=(local);database=pubs;user?id=sa;password=")

'正確寫(xiě)法

Dim?objConnection?As?New?SqlConnection("Data?Source=127.0.0.1;?Initial?Catalog=pubs;?user?id=sa;?password=;")

'數(shù)據(jù)適配器

Dim?objDataAdapter?As?SqlDataAdapter?=?New?SqlDataAdapter()

'DataSet

Dim?objDataSet?As?DataSet?=?New?DataSet()

Private?Sub?Form1_Load(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Me.Load

'設(shè)置查詢命令屬性

objDataAdapter.SelectCommand?=?New?SqlCommand

objDataAdapter.SelectCommand.Connection?=?objConnection

objDataAdapter.SelectCommand.CommandText?=?"select?au_lname,au_fname,title,price?from?authors?join?titleauthor?on?authors.au_id=titleauthor.au_id?join?titles?on?titleauthor.title_id=titles.title_id?order?by?au_lname,au_fname"

objDataAdapter.SelectCommand.CommandType?=?CommandType.Text

'打開(kāi)數(shù)據(jù)庫(kù)連接

objConnection.Open()

'填充DataSet對(duì)象

objDataAdapter.Fill(objDataSet,?"authors")

'關(guān)閉數(shù)據(jù)庫(kù)連接

objConnection.Close()

'給DataGrid綁定數(shù)據(jù)

grdAuthorTitles.DataSource?=?objDataSet

grdAuthorTitles.DataMember?=?"authors"

'清除

objDataAdapter?=?Nothing

objConnection?=?Nothing

End?Sub

End?Class

vb.net 中如何使用SQL語(yǔ)句查詢數(shù)據(jù)庫(kù)

dim

myselectquery

as

string

=

"select

*

from

表1

where

姓名='小強(qiáng)'"

dim

mycommand

as

new

sqlcommand

(myselectquery,

conn)

'建立一個(gè)command控件，conn是你的sqlconnection對(duì)象

conn.open()'打開(kāi)數(shù)據(jù)連接

dim

myreader

as

sqldatareader'定義一個(gè)reader用來(lái)讀數(shù)據(jù)

myreader

=

mycommand.executereader()'運(yùn)行你的查詢，結(jié)果到myreader

if

myreader.read()

then

'如果查到了數(shù)據(jù)

msgbox(myreader.getstring(0))

'顯示第一個(gè)字段

end

if

vb.net 中如何使用SQL語(yǔ)句查詢數(shù)據(jù)庫(kù)中的數(shù)據(jù)

1、首先打開(kāi)Visual Studio 2008代碼窗口，添加引用。

2、輸入以下代碼：Public conn1 ?As SqlConnection = New SqlConnection 。

3、聲明關(guān)鍵字 Public；（因?yàn)槭侨肿兞浚杂肞ublic 來(lái)聲明）。

4、如果SQL 數(shù)據(jù)庫(kù)就在本機(jī)，則用以下代碼連接。

5、如果代碼太長(zhǎng)，影響可讀性，可以用空格加"_"后，回車(chē)換行即可。

名稱欄目：vb.net與sql的簡(jiǎn)單介紹
網(wǎng)頁(yè)地址：http://www.chinadenli.net/article6/heijog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站制作、網(wǎng)站收錄、網(wǎng)站建設(shè)、定制網(wǎng)站、網(wǎng)站內(nèi)鏈、關(guān)鍵詞優(yōu)化

廣告

聲明：本網(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í)需注明來(lái)源： 創(chuàng)新互聯(lián)