十年網(wǎng)站開發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營維護(hù)+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
VB一般指的是VB6.0是基于對(duì)象的,VB.NET是面向?qū)ο蟮?它們之間的語法接近,但差距也不小,學(xué)VB搞VB.net不亞于新學(xué)一門語言。

創(chuàng)新互聯(lián)建站網(wǎng)站建設(shè)提供從項(xiàng)目策劃、軟件開發(fā),軟件安全維護(hù)、網(wǎng)站優(yōu)化(SEO)、網(wǎng)站分析、效果評(píng)估等整套的建站服務(wù),主營業(yè)務(wù)為網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站,app軟件開發(fā)公司以傳統(tǒng)方式定制建設(shè)網(wǎng)站,并提供域名空間備案等一條龍服務(wù),秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。創(chuàng)新互聯(lián)建站深信只要達(dá)到每一位用戶的要求,就會(huì)得到認(rèn)可,從而選擇與我們長期合作。這樣,我們也可以走得更遠(yuǎn)!
VB.NET生成的是托管代碼,必須運(yùn)行于.NET框架之上.VB6則依賴于VB6運(yùn)行時(shí)的支持。
WIN 7中仍然會(huì)提供VB6的支持,不過再到以后的版本就沒了。
如果你是第一次學(xué),系統(tǒng)用XP,可以搞VB,要是用Win10等新系統(tǒng),還是直接轉(zhuǎn)向VB.NET學(xué)習(xí)好了。
關(guān)于教程:
人民郵電的 Visual Basic 6.0 編程指南
清華大學(xué)的 Visual Basic 6.0 中文版傻瓜書
都是很老的書,可以找電子版,或者去圖書館借。
VB.NET程序設(shè)計(jì) 電子工業(yè)出版社 青島東合信息技術(shù)有限公司
《Visual Basic 2010入門經(jīng)典》有2個(gè)版本,一個(gè)是清華大學(xué)出版社的,一個(gè)是人民郵電出版社的,都不錯(cuò)!
你把SQL 語句打印出來,到SQL上手動(dòng)執(zhí)行一下。不是條件沒設(shè)好。
VB 是Visual Basic編程語言
1991年,美國微軟公司推出了Visual Basic(可間稱VB),目前的最新版本是VB 2005(VB8)中文版。
Visual 意即可視的、可見的,指的是開發(fā)像windows操作系統(tǒng)的圖形用戶界面(Graphic User Interface,GUI)的方法,它不需要編寫大量代碼去描述界面元素的外觀和位置,只要把預(yù)先建立好的對(duì)象拖放到屏幕上相應(yīng)的位置即可。
Basic指的是Beginners all_purpose symbolic instruction code 初始者通用符號(hào)指令代碼語言。
Visual Basic有學(xué)習(xí)版、專業(yè)版和企業(yè)版三種版本,以滿足不同的開發(fā)需要。學(xué)習(xí)版適用于普通學(xué)習(xí)者及大多數(shù)使用Visual Basic開發(fā)一般Windows應(yīng)用程序的人員;專業(yè)版適用于計(jì)算機(jī)專業(yè)開發(fā)人員,包括了學(xué)習(xí)版的全部?jī)?nèi)容功能以及Internet控件開發(fā)工具之類的高級(jí)特性;企業(yè)版除包含專業(yè)版全部的內(nèi)容外,還有自動(dòng)化構(gòu)件管理器等工具,使得專業(yè)編程人員能夠開發(fā)功能強(qiáng)大的組骨子里分布式應(yīng)用程序。
VB是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語言,可用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高,且功能強(qiáng)大可以與Windowsr專業(yè)開發(fā)工具SDK相媲美。在Visual Basic環(huán)境下,利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具,使用Windows內(nèi)部的廣泛應(yīng)用程序接口(API)函數(shù),以用動(dòng)態(tài)鏈接庫(DLL)、對(duì)象的鏈接與世隔嵌入(OLE)、開放式數(shù)據(jù)連接(ODBC)等技術(shù),可以高效、快速地開發(fā)Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。隨著版本的提高,Visual Basic的功能也越來越強(qiáng)。5.0版以后,Visual Basic推出了中文版,與前個(gè)版本相比,其功能有了很大提升。
在二十一世紀(jì)初,microsoft公司推出Visual Studio 2003與Visual Basic之間有了重大變化,Visual Studio為各種編程工具做了一個(gè)平臺(tái),Visual Basic.NET可在這種平臺(tái)上運(yùn)行。相對(duì)于傳統(tǒng)VB,有很大的不同。VB.Net,首次使用.Net構(gòu)架進(jìn)行可視化編程,并且能很好地與COM構(gòu)架兼容。2005年Visual Studio 2005則運(yùn)用了NET 2.0的技術(shù),更加的方便了程序員的工作??墒切碌某绦?qū)ο到y(tǒng)配置要求也較高,需要微軟.Net Framework 2.0以上的.Net構(gòu)架支持。
另外VB(V代表Vitamin)還有一個(gè)意思
維生素B包括維生素B1、維生素B2、維生素B6、維生素B12、煙酸、泛酸、葉酸等。這些B族維生素是推動(dòng)體內(nèi)代謝,把糖、脂肪、蛋白質(zhì)等轉(zhuǎn)化成熱量時(shí)不可缺少的物質(zhì)。如果缺少維生素B,則細(xì)胞功能馬上降低,引起代謝障礙,這時(shí)人體會(huì)出現(xiàn)怠滯和食欲不振。相反喝酒過多等導(dǎo)致肝臟損害,在許多場(chǎng)合下是和維生素B缺乏癥并行的。
以下是含有豐富維生素B的食品:
①含有豐富維生素B1的食品:小麥胚芽、豬腿肉、大豆、花生、里肌肉、火腿、黑米、雞肝、胚芽米等。
②含有豐富維生素B2的食品:七腮鰻、牛肝、雞肝、香菇、小麥胚芽、雞蛋、奶酪等。
③含有維生素B6、維生素B12、煙酸、泛酸和葉酸等食品: 肝、肉類、牛奶、酵母、魚、豆類、蛋黃、堅(jiān)果類、菠菜、奶酪等。其中的維生素B1在人體內(nèi)無法貯存,所以應(yīng)每天補(bǔ)充。
B族維生素若想全部攝取比較困難,但是認(rèn)真選擇食物就可以簡(jiǎn)單且方便的攝取。上述含有維生素B的食物可以分為①和②③兩組??纯瓷鲜龇诸惥涂梢悦靼祝诤廷嗳己诖篌w相同的食物中。因此①作為一組食物,②和③合在一起形成一組食物,組合選擇兩組食物,基本上可以把B族維生素?cái)z取到手。
以下是我以前百度找的資料 希望對(duì)你有用 你讀取DataGridView到DataGrid然后直接調(diào)用函數(shù)即可
Public Function ExportXLsD(ByVal datagrid As DataGrid) ', ByVal Title As String)
'Dim Mytable As New DataTable
'Mytable = CType(datagrid.DataSource, DataTable)
If mytable Is Nothing Then
MessageBox.Show("沒有記錄不能導(dǎo)出數(shù)據(jù)", "PurpleStar", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Function
End If
If mytable.Rows.Count 0 Then
Dim MyFileName As String
Dim FileName As String
With SaveFileDialog1
.AddExtension = True '如果用戶忘記添加擴(kuò)展名,將自動(dòng)家上
.DefaultExt = "xls" '默認(rèn)擴(kuò)展名
.Filter = "Excel文件(*.xls)|*.xls"
.Title = "文件保存到"
If .ShowDialog = DialogResult.OK Then
FileName = .FileName
End If
End With
MyFileName = Microsoft.VisualBasic.Right(FileName, 4)
If MyFileName = "" Then
Exit Function
End If
If MyFileName = ".xls" Or MyFileName = ".XLS" Then
Dim FS As FileStream = New FileStream(FileName, FileMode.Create)
Dim sw As StreamWriter = New StreamWriter(FS, System.Text.Encoding.Default)
sw.WriteLine(vbTab FileName vbTab Date.Now)
Dim i, j As Integer
Dim str As String = ""
For i = 0 To mytable.Columns.Count - 1
str = mytable.Columns(i).Caption
sw.Write(str vbTab)
Next
sw.Write(vbCrLf)
For j = 0 To mytable.Rows.Count - 1
For i = 0 To mytable.Columns.Count - 1
Dim strColName, strRow As String
strRow = IIf(mytable.Rows(j).Item(i) Is DBNull.Value, "", mytable.Rows(j).Item(i))
sw.Write(strRow vbTab)
Next
sw.Write(vbLf)
Next
sw.Close()
FS.Close()
MessageBox.Show("數(shù)據(jù)導(dǎo)出成功!", "PurpleStar", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Exit Function
End If
Else
MessageBox.Show("沒有記錄不能導(dǎo)出數(shù)據(jù)", "PurpleStar", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Function
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Dim saveExcel As SaveFileDialog
saveExcel = New SaveFileDialog
saveExcel.Filter = "Excel文件(.xls)|*.xls"
Dim filename As String
If saveExcel.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
filename = saveExcel.FileName
Dim excel As Excel.Application
excel = New Excel.Application
excel.DisplayAlerts = False
excel.Workbooks.Add(True)
excel.Visible = False
Dim i As Integer
For i = 0 To DataGridView1.Columns.Count - 1
excel.Cells(1, i + 1) = DataGridView1.Columns(i).HeaderText
Next
'設(shè)置標(biāo)題
Dim j As Integer
For i = 0 To DataGridView1.Rows.Count - 1 '填充數(shù)據(jù)
For j = 0 To DataGridView1.Columns.Count - 1
excel.Cells(i + 2, j + 1) = DataGridView1(j, i).Value
Next
Next
excel.Workbooks(1).SaveCopyAs(filename) '保存
Me.Close()
End Sub