VB.NET中有控件可以真接接點擊屬性進行連接配置.
在阿爾山等地區(qū),都構建了全面的區(qū)域性戰(zhàn)略布局,加強發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力,以專注、極致的服務理念,為客戶提供網(wǎng)站設計制作、網(wǎng)站設計 網(wǎng)站設計制作按需設計,公司網(wǎng)站建設,企業(yè)網(wǎng)站建設,品牌網(wǎng)站建設,成都全網(wǎng)營銷推廣,成都外貿(mào)網(wǎng)站建設,阿爾山網(wǎng)站建設費用合理。
SqlConnect數(shù)據(jù)連接控件.點擊ConnectionString屬性進行配置就可以了.
VB.NET中沒有RecordSet了.取而代之的是DataSet.
在VB.net中可以先用SqlConnection對像來連接數(shù)據(jù)庫再用SqlDataAdapter對像來讀取數(shù)據(jù)并填充到DataSet里.然后就可以進行數(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)
pplication
Set xlapp = CreateObject("Excel.Application") '激活EXCEL
xlapp.Visible = True '讓EXCEL可見
Set xlbook = xlapp.Workbooks.Open(App.Path + "個人簡歷.xlt")
'打開工作簿,strDestination為一個EXCEL報表文件
Set xlsheet = xlbook.Worksheets(1) '設定工作表
這個有點像是vb6的、vb.net也有相應的方法的.總之是
excel.application 用到這個就可以了.必要的話導入excel的dll文件.
這樣你就發(fā)現(xiàn)、可以用vb.net來對excel來操作.你可以查下微軟的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 目前應用了三個對象:application,worksheet和range,三者的關系應該清晰,做到這點就能從基本開始做了:)格式設置都在range對象,只不過在設置對齊屬性上是verticalalignment和horizon
range 用來定位、
然后你可以循環(huán)把數(shù)據(jù)輸出到指定了格式的excel文件里了吧、其實連格式都是可以程序控制的好好學下吧.
可以參考一下這篇文章
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ù)庫sa用戶"; Password="數(shù)據(jù)庫密碼""
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
Imports?System.Data
Imports?System.Data.SqlClient
Public?Class?Form1
Inherits?System.Windows.Forms.Form
'數(shù)據(jù)庫連接對象
'錯誤的寫法??
'Dim?objConnection?As?SqlConnection?=?New?SqlConnection("server=(local);database=pubs;user?id=sa;password=")
'正確寫法
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
'設置查詢命令屬性
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
'打開數(shù)據(jù)庫連接
objConnection.Open()
'填充DataSet對象
objDataAdapter.Fill(objDataSet,?"authors")
'關閉數(shù)據(jù)庫連接
objConnection.Close()
'給DataGrid綁定數(shù)據(jù)
grdAuthorTitles.DataSource?=?objDataSet
grdAuthorTitles.DataMember?=?"authors"
'清除
objDataAdapter?=?Nothing
objConnection?=?Nothing
End?Sub
End?Class
dim
myselectquery
as
string
=
"select
*
from
表1
where
姓名='小強'"
dim
mycommand
as
new
sqlcommand
(myselectquery,
conn)
'建立一個command控件,conn是你的sqlconnection對象
conn.open()'打開數(shù)據(jù)連接
dim
myreader
as
sqldatareader'定義一個reader用來讀數(shù)據(jù)
myreader
=
mycommand.executereader()'運行你的查詢,結果到myreader
if
myreader.read()
then
'如果查到了數(shù)據(jù)
msgbox(myreader.getstring(0))
'顯示第一個字段
end
if
1、首先打開Visual Studio 2008代碼窗口,添加引用。
2、輸入以下代碼:Public conn1 ?As SqlConnection = New SqlConnection 。
3、聲明關鍵字 Public;(因為是全局變量,所以用Public 來聲明)。
4、如果SQL 數(shù)據(jù)庫就在本機,則用以下代碼連接。
5、如果代碼太長,影響可讀性,可以用空格加"_"后,回車換行即可。
名稱欄目:vb.net與sql的簡單介紹
網(wǎng)頁地址:http://m.kartarina.com/article6/heijog.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站制作、網(wǎng)站收錄、網(wǎng)站建設、定制網(wǎng)站、網(wǎng)站內(nèi)鏈、關鍵詞優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)