vbexcel数据库
VB编程软件可使用适当的数据控件，通过编程语言和sql结构化查询语句，能实现获取excel数据并存储到其它数据库表中。
❷ VB能否用Excel作为数据库，怎样用
可以使用DAO，但是Excel数据库是之允许添加、修改、浏览而不允许删除行的：
Sub TestHDRConnectParameter(blnHDRParam As Boolean)
Dim dbs As Database
Dim rst As Recordset
Dim strHDRParam As String
If blnHDRParam = True Then
strHDRParam = "YES"
Else
strHDRParam = "NO"
End If
' Open the Microsoft Jet sample database.
Set dbs = OpenDatabase("C:\JetBook\Samples\Excel\Procts97.xls", _
False, False, "Excel 8.0;HDR=" & strHDRParam & ";")
' Create a Recordset object for the Microsoft Excel Procts worksheet.
Set rst = dbs.OpenRecordset("Procts$")
' Move to the last record and display the RecordCount property value.
With rst
.MoveLast
MsgBox "There are " & .RecordCount & " records in this worksheet."
.Close
End With
dbs.Close
End Sub
注意：
(1)HDR指定是否将首行作为标题行。
(2)表名字后面要加$符号。
❸ 如何利用VB和EXCEL开发数据库
可以使用DAO，但是Excel数据库是之允许添加、修改、浏览而不允许删除行的：
Sub TestHDRConnectParameter(blnHDRParam As Boolean)
Dim dbs As Database
Dim rst As Recordset
Dim strHDRParam As String
If blnHDRParam = True Then
strHDRParam = "YES"
❹ VB读取excel数据并插入到数据库
Set xlApp = CreateObject("Excel.Application") '激活EXCEL应用程序
xlApp.Visible = False '隐藏EXCEL应用程序窗口
Set xlBook = xlApp.Workbooks.Open(FileManually) '打开工作簿，FileManually为一个EXCEL报表文件
Set xlSheet = xlBook.Worksheets(Trim(txtSheetNM.Text)) '设定工作表
For IRowsCount = 1 To xlSheet.UsedRange.Cells.Rows.Count
If Trim(xlSheet.Cells(IRowsCount, 1)) = "" Then
Exit For
End If
'将xlSheet.Cells(IRowsCount,列号)的数据插入数据库中
'转换男女可以判断xlSheet.Cells(IRowsCount,列号)="男",则=1,否则=0,然后再写入数据库
Next IRowsCount
❺ VB打开Excel数据库的问题
rs.Source = "select * from [Sheet1$]" 改成下面那句就可以了.
rs.Source = "select * from [Sheet1$] untion select * from [Sheet1$]"
❻ 使用VB来封装能调用Excel来进行建立个简单数据库么
可以，如果不复杂用xml,稍复杂用ACCESS更好。。
❼ 用vb将Excel中的数据写入数据库
Private Sub Command1_Click()
Dim fileadd As String
CommonDialog1.ShowOpen
CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择你要的文件
fileadd = CommonDialog1.FileName
If fileadd = "" Then Exit Sub
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(fileadd) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False ' = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(1) '设置活动工作表
For R = 1 To 99999 '行循环
If LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1))) <> "" Then
Call Dosql("INSERT INTO CB_JiXieFeiYong (danwei_name) VALUES (" & LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1))) & ")")
Else
R = 99999 + 1
End If
Next R
xlApp.DisplayAlerts = False '不进行安全提示 '
Set xlSheet = Nothing '
Set xlBook = Nothing '
xlApp.Quit '
Set xlApp = Nothing
Unload Me
End Sub
Private Sub Dosql(ByVal tn As String) '执行SQL语句
Dim sql As String
Set conn = New ADODB.Connection
conn.ConnectionString = condstr
conn.Open
conn.Execute tn
conn.Close
End Sub
这段代码估计对你有用。
❽ vb excel导入数据库怎么做
VB存数据库的做过，EXCEL的没试过，应该都差不多吧，我当时也是网上找的资料学的，你也可以查一下相关资料，有时候语句都是写的成熟的，只要替换数据库名就可以了。
另外对于你的这个存储过程，我建议你分开来做，先做全部存储。全部存储功能实现了再做数据比对及不导入操作，最后再实现提示重复订单功能。因为个人感觉这三个东西每一个处理起来都需要时间来测试的，分开来把问题简单化容易成功一些。
❾ vb,连接EXCEl数据库
Sub ReadExcel()'读取Excel文件内容
Dim x As Integer
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim AppExcel As New Excel.Application
Set AppExcel = CreateObject("Excel.Application")'创建Excel对象
Set xlBook = AppExcel.Workbooks.Open("D:\数据表.xls") '打开工作簿
If AppExcel Is Nothing Then Exit Sub'错误则退出
For x = 1 To AppExcel.Sheets.Count '找到对应的工作表
If AppExcel.Sheets(x).Name ="工作表名" Then
Set xlSheet = AppExcel.Sheets(x)
Exit For
End if
Next
'下面为单元格的定义
xlSheet.Cells([RowIndex],[ColumnIndex]).Value'单元格(行 , 列)
xlSheet.Range("B2:B2").Value'单元格选择
Set xlSheet = Nothing
Set xlBook = Nothing
Set AppExcel = Nothing
End Sub
'VB6.0必需先引用Microsoft Excel 11.0 Object Library
❿ 用VB做怎么将Excel数据导入SQL数据库中
用VB做，将Excel数据导入SQL数据库中：
法一:可以试着用VB书写一段调用SQL Server数据库DTS的代码,然后就可以像直接使用DTS进行数据导入一样就行Excel与SQL Server数据之间的迁移了。
方法二:可以用VB来 作EXCEL,然后一条数据一条数据的 入到数据库中,这种方法不 使用,因为VB 作EXCEL是非常慢的,如果数据量太大,很有可能会造成宕机。