美女秀胸视频加男人:数据库高手帮忙,关于Access数据库文件

想办法把access的数据导出来啊！~~~我告诉你两种方法吧
这两种方法都是把数据库的数据导出到文本的
如果还是不会的话就加我QQ：3865299
有什么不明白的地方直接问我

首先：用SQL SERVER 2000导出，导入的方法

不知道在ACCESS里有没有。

bcp database_name.owner.table_name out d:￥temp￥filename –Sservername -Usa -Ppassword –N

database_name指导出数据的数据库名。在这里我们成为数据库元。

owner指所有者。这里是dbo

table_name指表名。

d:￥temp￥filename指生成文件的路径。

–Sservername是指服务器名。也就是导出数据的数据库所在的服务器。

-Usa是指该服务器的用户名，这里是sa

-Ppassword是指服务器的密码。这里是空,故不用写。

-N意思是生成一个不可读文件。如果是c的话,就会生成一个可读文件。当然,是c的话前面的filename

也要有它的扩展名。例如，要生成一个txt文件，就要是test.txt

注意：-U,-P,-N必须是大写。另外还要注意空格。

--------------------------------------------------------------------
--------------------------------------------------------------------

然后还有用VB编写代码

Private Sub Command2_Click()
Dim scz(1000) As String, sbz(1000) As String '查询组合时付入查询条件
Dim sppx(1000, 1000)
Dim dyjlgs As Single
'''''''''''''''''''''''''''''''''''''查询组合
Dim aArray()
Dim ii As Integer, ij As Integer, ix As Integer
Dim it1 As Integer, it2 As Integer
Dim a As Integer, aa As Integer
On Error GoTo scy
Adodc2.Recordset.MoveFirst
dyjlgs = Adodc2.Recordset.RecordCount '记录个数
aArray = Adodc2.Recordset.GetRows()
For ix = 0 To dyjlgs - 1 'UBound(aArray, 2) '行数
scz(ix) = aArray(3, ix)
Next ix
Adodc2.Refresh '重要
'''''''''''''''''''''''''''''''''''''整理
'''''''''''''''''''''''''''''''''''''
it3 = 0: a = dyjlgs
Do While (itt < (dyjlgs - 1)) Or (itt = (dyjlgs - 1))
99 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sppx(it3, 0) = 0: it1 = 1 'it1为记载子集元素个数
For ij = 1 To a - 1 '求相同条件子集
If scz(0) = scz(ij) Then it1 = it1 + 1: sppx(it3, it1 - 1) = ij 'it3为记载子集个数
Next ij
scx(it3) = scz(0)
itt = itt + it1 'itt为统计经过操作元素的个数
'''''''''''''''''''''''''求余集,重新建立集合
aa = 0
For ij = 0 To a - 1
For t = 0 To it1 - 1
If sppx(it3, t) = ij Then GoTo 999
Next t
sbz(aa) = scz(ij): aa = aa + 1
999 Next ij
a = aa
'''''''''''''''''''''''''''''''转化
For ij = 0 To a - 1
scz(ij) = sbz(ij)
Next ij
'''''''''''''''''''''''''''''''
it3 = it3 + 1
Loop
'''''''''''''''''''''''''''''''''''''查询
Form3.Show
scy:
Dim sdh As String, syjdh As String, syjmc As String
Dim sxh As String, syjgg As String, swz As String
Dim scm As String, ssl As String, sbzz As String
Dim sab As String
Dim sgs As Single
Dim aArray()
If KeyAscii = 13 Then
sab = Text1 & ".text"
Open App.Path & "\产品配料表\" & sab For Output As #1
Unload Me: form1.Show
For ii = 0 To it3 - 1
cx = "[元件代号] like" + " '" + scx(ii) + "'"
form1.Adodc2.RecordSource = "打印表数据库 where " + cx
form1.Adodc2.Refresh
sgs = form1.Adodc2.Recordset.RecordCount '记录个数
aArray = form1.Adodc2.Recordset.GetRows()
ssl = 0
For ix = 0 To sgs - 1 'UBound(aArray, 2) '行数
syjmc = aArray(2, ix) '元件名称
If ix = 0 Then
sdh = aArray(1, ix) '代号
Else
sdh = sdh & "," & aArray(1, ix) '代号
End If
syjdh = aArray(3, ix) '元件代号
sxh = aArray(4, ix) '元件型号
syjgg = aArray(5, ix) '元件规格
swz = aArray(6, ix) '位置
scm = aArray(7, ix) '厂家
ssl = CSng(ssl) + CSng(aArray(8, ix)) '数量
sbzz = aArray(9, ix) '备注
Next ix
Print #1, sdh
Print #1, syjmc
Print #1, syjdh
Print #1, sxh
Print #1, syjgg
Print #1, swz
Print #1, scm
Print #1, ssl
Print #1, sbzz
Next ii
Close #1
'''''''''''''''''''''''''''''''''''''建表

'''''''''''''''''''''''''''''''''''''清表
form1.Adodc3.Recordset.MoveFirst
Do While Not form1.Adodc3.Recordset.EOF
form1.Adodc3.Recordset.Delete
form1.Adodc3.Recordset.MoveNext
Loop
DelayLoop (1)
cx = "[元件代号] like" + " '" + "%" + "'"
form1.Adodc2.RecordSource = "打印表数据库 where " + cx
form1.Adodc2.Refresh
it3 = 0
For sgs = 0 To 1000
scx(sgs) = ""
Next sgs
End If
End Sub

如果你有密码了，如果你装有任意的一个数据库软件，例如：SQL、foxpro、将这个数据库导入到这些软件中就行了，因为数据库文件大多能通用……

如果想把Access中的表或者查询，转换成为Word中能够读取的文件格式，以便利用Word进行处理，可以采用以下三种方式：

1． 利用剪贴板

在Access中，打开要转换的表或者查询项，将鼠标指针拖过所选记录的行选择器（在窗口的最左端，当鼠标置于其上时，鼠标指针会变成向右方向的箭头），可以选择一组记录；将鼠标指针拖过所选字段的字段选择器（在窗口的最上端，当鼠标置于其上时，鼠标指针会变成向下方向的箭头），可以选择一组字段；当用鼠标单击左上角的字段选择器和行选择器的交叉处时，可选中所有记录或者说是选中所有字段。进行上述三种情况之一的选择以后，再单击工具栏上的“复制”按钮，将所选内容复制到剪贴板中，如图1所示。随后再打开Word，单击工具栏上的“粘贴”按钮，即可将Access中表或者查询项复制成Word中的表格。如果你觉得被复制进来的深色底纹表头影响视觉效果，可以选中该行后，执行“格式”菜单下的“边框和底纹”命令，按下“底纹”标签按钮，选择“无填充色”。

2． 导出为RTF文件

在Access中，打开要转换的表或者查询，执行“文件”菜单下的“导出”命令，将“保存类型”指定为“Rich Text Format”。在Word中，执行“文件”菜单下的“打开”命令或者直接按下工具栏上的“打开”按钮，在随后弹出的“打开”对话框中，单击“文件类型”旁边的下拉列表，将其指定为“RTF格式”，找到前面保存的RTF文件双击即可打开。

3． 直接插入数据库

在Word中，单击“视图”菜单下的“工具栏”，然后将“数据库”一项选中（或者将鼠标置于Word窗口的菜单栏或工具栏上右击，在弹出的快捷菜单中选中“数据库”一项）。这时，要在Word中打开Access的表或者查询项，就可以单击新增加出来的“数据库”工具栏上的“插入数据库”按钮，在随后打开的“数据库”对话框中，按下“获取数据”标签按钮，将文件类型指定为“MS Access数据库”，选中一个数据库文件中的表或者查询，再单击“插入数据”标签按钮。