×

excel数据库教程

excel数据库教程(如何将excel中的数据导入到数据库)

admin admin 发表于2023-03-20 04:58:21 浏览29 评论0

抢沙发发表评论

本文目录

如何将excel中的数据导入到数据库


  • 1)打开你的sql server,找到要导入数据的数据库,右键——〉任务——〉导入数据

  • 2)按照图示选择要导入的excel

  • 3)选择导入到哪个数据库

  • 4)导入excel选择第一项即可,选择第二项是表与表直接内容的筛选复制

  • 5)选择源表和源视图

  • 6)编辑映射页面

  • 7)继续下一步,点击完成,看到传输数据完成页面

  • 8)进入数据库刷新,查看刚刚导入的表,完成!


怎样用EXCEL建简单和数据库


首先你在个个单元格里输入你要设计的主版,比如姓名,性别,年龄,然后你在进入数据库里,刚才你所设计上的这几个选项就自动生成,在里面一一打上你要填的,然后一项填完后,就可以点下一个,第一个数据就自动生成在了那几个单元格里,你就可以继续填写一些数据了

怎么样把excel里内容建成数据库,要详细的步骤,我不懂


建议:用EXCEL 连接数据库,查询,并将查询结果显示在EXCEL
1.新建一个EXCEL文件,按ALT+F11进入VBA
2.插入一个模块:插入-》模块
3.在模块中插入以下代码
Public Const ConnStr As String = “Provider=SQLOLEDB.1;Password=sa2;Persist Security Info=True;User ID=sa2;Initial
Catalog=MIS;Data Source=192.168.0.117“
’说明Public Const ConnStr As String = “Provider=SQLOLEDB.1;Password=数据库SA密码;Persist Security Info=True;User ID=数据
库SA用户名;Initial Catalog=数据库名;Data Source=数据库服务器IP“
Public strSQL As String
Public CNN As New ADODB.Connection
Public RST As New ADODB.Recordset
Public Function DataConn() As Boolean
If CNN.State = adStateClosed Then
CNN.Open ConnStr
End If
End Function
Public Sub DataClose()
If RST.State 《》 adStateClosed Then
RST.Close
Set RST = Nothing
End If

If CNN.State 《》 adStateClosed Then
CNN.Close
Set CNN = Nothing
End If
End Sub
4.很多情况下:是否可以正确连接,可以用本地ODBC连接一些,试试看。方法:所有程序-》管理工具-》数据源(ODBC)-》添加-》SQL
SQL-》按向导完成连接测试,连接成功才能进入下一步。
5.EXCEL查询显示,插入一个按钮,双击创建代码,插入以下代码,
Private Sub CommandButton1_Click()
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim rnStart As Range

Set wbBook = ActiveWorkbook
Set wsSheet = wbBook.ActiveSheet ’Worksheets(2)

With wsSheet
Set rnStart = .Range(“A3“)
End With
With wsSheet
If .FilterMode = True Then
.ShowAllData
End If
If .UsedRange.Rows.Count 》 0 And .UsedRange.Columns.Count 》 0 Then
rnStart.Resize(.UsedRange.Rows.Count, .UsedRange.Columns.Count).ClearContents
End If
End With

Call DataConn
Dim strID AS String
strID= InputBox(“请输入查询ID“)
’假如MIS库有个表叫USER,USER有个字段叫ID,字段类型CHAR
strSQL = “SELECT * FROM MIS..BIAO WHERE ID= “ & “’“ & strID & “’“

If RST.State 《》 adStateClosed Then
RST.Close
Set RST = Nothing
End If
RST.Open strSQL, CNN

If RST.EOF Then
MsgBox “没有数据!“
Exit Sub
End If

rnStart.CopyFromRecordset RST
End Sub
6.这其中数据库的连接是个比较麻烦的问题,一旦学会了,其他问题都好办,鉴于篇幅限制,不能详述,需要可联系