189 8069 5689
VB一般指的是VB6.0是基于对象的,VB.NET是面向对象的,它们之间的语法接近，但差距也不小，学VB搞VB.net不亚于新学一门语言。
创新互联建站网站建设提供从项目策划、软件开发，软件安全维护、网站优化(SEO)、网站分析、效果评估等整套的建站服务，主营业务为网站设计、成都做网站，app软件开发公司以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。创新互联建站深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
VB.NET生成的是托管代码,必须运行于.NET框架之上.VB6则依赖于VB6运行时的支持。
WIN 7中仍然会提供VB6的支持,不过再到以后的版本就没了。
如果你是第一次学,系统用XP，可以搞VB，要是用Win10等新系统，还是直接转向VB.NET学习好了。
关于教程：
人民邮电的 Visual Basic 6.0 编程指南
清华大学的 Visual Basic 6.0 中文版傻瓜书
都是很老的书，可以找电子版，或者去图书馆借。
VB.NET程序设计 电子工业出版社 青岛东合信息技术有限公司
《Visual Basic 2010入门经典》有2个版本，一个是清华大学出版社的，一个是人民邮电出版社的，都不错！
你把SQL 语句打印出来，到SQL上手动执行一下。不是条件没设好。
VB 是Visual Basic编程语言
1991年，美国微软公司推出了Visual Basic(可间称VB），目前的最新版本是VB 2005(VB8)中文版。
Visual 意即可视的、可见的，指的是开发像windows操作系统的图形用户界面（Graphic User Interface,GUI）的方法，它不需要编写大量代码去描述界面元素的外观和位置，只要把预先建立好的对象拖放到屏幕上相应的位置即可。
Basic指的是Beginners all_purpose symbolic instruction code 初始者通用符号指令代码语言。
Visual Basic有学习版、专业版和企业版三种版本，以满足不同的开发需要。学习版适用于普通学习者及大多数使用Visual Basic开发一般Windows应用程序的人员；专业版适用于计算机专业开发人员，包括了学习版的全部内容功能以及Internet控件开发工具之类的高级特性；企业版除包含专业版全部的内容外，还有自动化构件管理器等工具，使得专业编程人员能够开发功能强大的组骨子里分布式应用程序。
VB是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它简单易学、效率高，且功能强大可以与Windowsr专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，以用动态链接库（DLL）、对象的链接与世隔嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。随着版本的提高，Visual Basic的功能也越来越强。5.0版以后，Visual Basic推出了中文版，与前个版本相比，其功能有了很大提升。
在二十一世纪初，microsoft公司推出Visual Studio 2003与Visual Basic之间有了重大变化，Visual Studio为各种编程工具做了一个平台，Visual Basic.NET可在这种平台上运行。相对于传统VB，有很大的不同。VB.Net，首次使用.Net构架进行可视化编程，并且能很好地与COM构架兼容。2005年Visual Studio 2005则运用了NET 2.0的技术，更加的方便了程序员的工作。可是新的程序对系统配置要求也较高，需要微软.Net Framework 2.0以上的.Net构架支持。
另外VB(V代表Vitamin)还有一个意思
维生素B包括维生素B1、维生素B2、维生素B6、维生素B12、烟酸、泛酸、叶酸等。这些B族维生素是推动体内代谢，把糖、脂肪、蛋白质等转化成热量时不可缺少的物质。如果缺少维生素B，则细胞功能马上降低，引起代谢障碍，这时人体会出现怠滞和食欲不振。相反喝酒过多等导致肝脏损害，在许多场合下是和维生素B缺乏症并行的。
以下是含有丰富维生素B的食品：
①含有丰富维生素B1的食品：小麦胚芽、猪腿肉、大豆、花生、里肌肉、火腿、黑米、鸡肝、胚芽米等。
②含有丰富维生素B2的食品：七腮鳗、牛肝、鸡肝、香菇、小麦胚芽、鸡蛋、奶酪等。
③含有维生素B6、维生素B12、烟酸、泛酸和叶酸等食品： 肝、肉类、牛奶、酵母、鱼、豆类、蛋黄、坚果类、菠菜、奶酪等。其中的维生素B1在人体内无法贮存，所以应每天补充。
B族维生素若想全部摄取比较困难，但是认真选择食物就可以简单且方便的摄取。上述含有维生素B的食物可以分为①和②③两组。看看上述分类就可以明白，②和⑧全都含在大体相同的食物中。因此①作为一组食物，②和③合在一起形成一组食物，组合选择两组食物，基本上可以把B族维生素摄取到手。
以下是我以前百度找的资料 希望对你有用 你读取DataGridView到DataGrid然后直接调用函数即可
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("没有记录不能导出数据", "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 '如果用户忘记添加扩展名，将自动家上
.DefaultExt = "xls" '默认扩展名
.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("数据导出成功！", "PurpleStar", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Exit Function
End If
Else
MessageBox.Show("没有记录不能导出数据", "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
'设置标题
Dim j As Integer
For i = 0 To DataGridView1.Rows.Count - 1 '填充数据
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