鸟菜
用手机怎么能将订单数据输入数据库access或sql server
请老师指点
鸟菜
一点也不懂啊
用网页录入可以吗?
access数据访问页
寞寂花烟比他
准备裸条? 寻千♂寻莫
一个油桶斤十七,连油带桶二斤一,你若能够猜得中,我把香油送给你
来猜 有多少油
菜白嫩是宝宝本:菜白的动萌簇一
妈蛋。利率下调这么多? 菜白嫩是宝宝本:菜白的动萌簇一
她说我利息还没有我存钱的手续费多
[沧桑]
菜白嫩是宝宝本:菜白的动萌簇一
说是外地的[沧桑]不都是湖北的嘛
收了我8块钱
辰雨
excel数据导入access表中,这个函数TransferSpreadsheet能不能选择性导入,比如只导入第3--100行
鸟菜ssecca
哪个:)现在有空啊
帮我整Access数据库的,
国中eciffO
4块 一年?那你存款就是300左右吧?
菜白嫩是宝宝本:菜白的动萌簇一
4000好不 ?雨辰 excel数据导入access表中,这个函数TransferSpreadsheet可以选择性导入
下面的示例在 Lotus 电子表格 Newemps.wk3 的指定范围内将表导入到 Microsoft Access 的“Employees”表,并用电子表格中的第一行作为字段名。 DoCmd.TransferSpreadsheet acImport, 3, _ "Employees","C:\Lotus\Newemps.wk3", True, "A1:G12"
菜白嫩是宝宝本:菜白的动萌簇一
他说我利息没有我手续费高
辰雨
3q 菜白嫩是宝宝本:菜白的动萌簇一
?Office中国 我能说啥 国中eciffO
?access菜鸟 具体内容说一下哦
菜白嫩是宝宝本:菜白的动萌簇一
我上次存1000是4.03……
国中eciffO
利息不是动态的?手续费应该是固定的吧。
菜白嫩是宝宝本:菜白的动萌簇一
手续费不知道……他要我交8块
空星
可以留一点活期
再放一点在货币基金(可即时提款的那种)
以上作为日常使用和备用
剩下的做投资吧,要安全的可以买银行理财,要收益的可以去投其他
小额存定期真的没啥意思
菜白嫩是宝宝本:菜白的动萌簇一
定期到时间我一定要去去吗?
空星
目前异地存款有的银行是要手续费的
一般不用
基本上默认都是自动转存的,以到期那天的利率按原期限继续存
空星
你怎么理解的?这能理解成活期? 空星
目测800或1600,800可能性高一点
我也觉得挺奇怪的,总共二三十的利息,这么纠结
菜白嫩是宝宝本:菜白的动萌簇一
一毛钱也是钱你去超市人家一毛钱也要收你的。购物袋都要3毛呢说的你多有钱一样 寻千♂寻莫
存期是按年算吗?一年的话是不是就是1,半年就是0.5?比如存500,一年。是否是500*1.95%*1=? 辰雨
:),我想用第一行做字段名,第二行做字段的标题,也就是显示名字,去掉3,4,5行,第六行以后是数据who know 怎么导入?席主
如何在ACCESS 的SQL语句中实现“向上取整”?
子王木阿
有正负数么还是都是正数?如果都是正数,可以这样 坤义周
真会取巧 席主
现在面对的只有正数
阿木王子,我看不到图,麻烦发个文字
?雨辰 先得在ACCESS创建数据表,其字段名和字段标题可在建立数据表时确定,然后导入外部EXCEL表数据,可在导入程序中对EXCEL表进行规范化操作,然后让其进入ACCESS中的数据表
给你一段ACCESS中操作EXCEL的示例代码参考
'导入藏品文件数据
Private Sub Command9_Click()
On Error GoTo Err_Command9_Click
Dim xlApp As New Excel.Application '申明Excel应用程序
Dim xlBook As Excel.Workbook '申明Excel工作簿对象
Dim Rows0 As Long
Dim strTemp As String
If (Len(Nz(Me.filepath)) = 0) Then
MsgBox "请选择或输入正确的藏品数据文件名!", 16, "操作错误"
Exit Sub
End If
If (Not FileExists(Me.filepath)) Then
MsgBox "请选择正确的藏品数据文件名!", 16, "操作错误"
Exit Sub
End If
strTemp = CurrentProject.Path & "\temp.xls"
FileCopy Me.filepath, strTemp '生成临时文件
DoCmd.Hourglass True '设置鼠标指针为沙漏形状
Set xlBook = xlApp.Workbooks.Open(strTemp) '指定要操作的Excel文件
xlApp.Visible = False '设置EXCEL为不可见
xlBook.Sheets(1).Range("A1").Select '选择激活第一工作表第一单元格
Rows0 = xlApp.ActiveCell.CurrentRegion.Rows.Count - 1 '当前应用活动单元格所在区域总行数
'xlBook.Sheets(1).Rows(Rows0 & ":" & Rows0).Delete '删除最后一行
'xlBook.Sheets(1).Rows("1:1").Delete '删除第一行
'xlBook.Save '保存数据
xlApp.Quit '退出EXCEL
DoCmd.Hourglass False '恢复鼠标指针
Set xlApp = Nothing '清除内存变量
Set xlBook = Nothing
'DoCmd.TransferSpreadsheet acImport, 8, "藏品信息", strTemp, True
DoCmd.TransferSpreadsheet acImport, 8, "藏品信息", strTemp, True, "A2:AG" & Rows0
MsgBox "藏品数据导入完毕!", vbOKOnly + vbInformation, "操作提示"
Me.Combo21 = ""
Call Command23_Click
Exit Sub
Exit_Command9_Click:
If Not xlApp Is Nothing Then xlApp.Quit '退出EXCEL
DoCmd.Hourglass False '恢复鼠标指针
Set xlApp = Nothing '清除内存变量
Set xlBook = Nothing
Exit Sub
Err_Command9_Click:
MsgBox Err.Description
Resume Exit_Command9_Click
End Sub
子王木阿
?