VB中怎么向数据库添加数据100分送上，在线候！！！

其实想要知道怎么处理这类问题，最好的方法是多 *** 作实例，介绍一些实例 *** 作的名称吧，我找的这些只是一些最基本的，打开网页>

Private Sub Command1_Click()

Dim fileadd As String

CommonDialog1ShowOpen

CommonDialog1Filter = "xls文件(xls)|xls" '选择你要的文件

fileadd = CommonDialog1FileName

If fileadd = "" Then Exit Sub

Set xlApp = CreateObject("ExcelApplication") '创建EXCEL对象

Set xlBook = xlAppWorkbooksOpen(fileadd) '打开已经存在的EXCEL工件簿文件

xlAppVisible = False ' = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBookWorksheets(1) '设置活动工作表

For R = 1 To 99999 '行循环

If LTrim(RTrim(xlBookWorksheets(1)Cells(R, 1))) <> "" Then

Call Dosql("INSERT INTO CB_JiXieFeiYong (danwei_name) VALUES (" & LTrim(RTrim(xlBookWorksheets(1)Cells(R, 1))) & ")")

Else

R = 99999 + 1

End If

Next R

xlAppDisplayAlerts = False '不进行安全提示 '

Set xlSheet = Nothing '

Set xlBook = Nothing '

xlAppQuit '

Set xlApp = Nothing

Unload Me

End Sub

Private Sub Dosql(ByVal tn As String) '执行SQL语句

Dim sql As String

Set conn = New ADODBConnection

connConnectionString = condstr

connOpen

connExecute tn

connClose

End Sub

这段代码估计对你有用。

如果是sql，那就简单了，连接好了用sql语句就可以，具体可以到网上查查，有很多

excel做数据库，就需要用openrowset了

举个简单例子

select from OPENROWSET('MicrosoftJETOLEDB40','Excel 40;Database=f:\ckqb2XLS',ckqb2$)

结果是将f盘下ckqb2的excel文件中名为ckqb2的sheet的内容

你应该在调试的时候在你的把一条带入了参数值的insert语句弄来看看，就能很快看出问题在哪里。另外[date]字段（这个地方最好用个中括号扩起来，敏感字符串哟！

如果实在不好弄写各存储过程吧。在Acess里面写一个添加查询吧。用

你需要掌握的知识是：

1，在VB中打开指定的Excel文件，并读取指定单元格的数据信息。（当然，可以把指定的数据写到指定的单元格）

2，在VB中打开指定的Access文件和数据表，并将指定的数据写到指定的记录，字段里。（当然，可以读取指定的记录，字段的数据）。

以上就是关于VB中怎么向数据库添加数据100分送上，在线候！！！全部的内容，包括:VB中怎么向数据库添加数据100分送上，在线候！！！、用VB怎样连接数据库中表的字段，使得添加数据时，表里的数据也相应添加不要使用SQL语言、用vb将Excel中的数据写入数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！