els数字货币
Ⅰ 求用VB实现的数字转换英文的程序，不是货币转换，只数字就OK了，包括0的，跪求代码啊~~
Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Dollars, Cents, Temp, Cents1
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' 字符串表示的金额。
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.小数点后的位置0如果没有。
DecimalPlace = InStr(MyNumber, ".")
' Convert cents and set MyNumber to dollar amount.MyNumber转换美分和设置,金额。
If DecimalPlace > 0 Then
Cents = Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2)
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Cents1 = GetCents(Cents)
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dollars
Case ""
Dollars = ""
Case "One"
Dollars = "One"
Case Else
Dollars = Dollars
End Select
Select Case Cents1
Case ""
Cents1 = ""
Case "One"
Cents1 = " point One"
Case Else
Cents1 = " point " & Cents1
End Select
SpellNumber = Dollars & Cents1
Do While InStr(SpellNumber, " ") > 0
SpellNumber = Replace(SpellNumber, " ", " ")
Loop
End Function
' Converts a number from 100-999 into text转换数字100 - 999进入文本
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.转换百的地方。
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred and "
End If
' Convert the tens and ones place.转换千的地方。
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
' Converts a number from 10 to 99 into text.转换数字从10到99成文本。
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.空出暂时的函数值。
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.检索的地方。
End If
GetTens = Result
End Function
' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function
Function GetCents(ByVal Cents)
Dim Result As String
Result = ""
If Val(Left(Cents, 1)) = 1 Then
Select Case Val(Cents)
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
ElseIf Val(Mid(Cents, 2, 1)) = 0 Then
Select Case Val(Left(Cents, 1))
Case 2: Result = "Two"
Case 3: Result = "Three"
Case 4: Result = "Four"
Case 5: Result = "Five"
Case 6: Result = "Six"
Case 7: Result = "Seven"
Case 8: Result = "Eight"
Case 9: Result = "Nine"
Case Else
End Select
Else
Select Case Val(Left(Cents, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(Cents, 1))
End If
GetCents = Result
End Function
如果想投资的话，建议先考虑下是否看好这个行业了，因为比特币这类数字货币，其实是没有实际价值的，只有收藏价值，所有被炒的价格比较高，打算投资的话，先要选一个靠谱的老平台，口碑不错的，这样至少钱进去不会凭空消失，你可以看下AEX、火币这2家，年限6年以上，口碑也一直不错，长期投资可以去AEX进行货币理财
Ⅲ 求电子表格文本格式转为数字或货币格式的公试
文本转换为数值就用，举例
=VALUE(A1)
Ⅳ 四川师范大学自考本科有哪些专业
四川师范大学自考本科专业如下：
物业管理、法学、工程造价、环境设计、应用化学、电子商务、学前教育、小学教育、教育管理、工商企业管理、行政管理、金融学、物流管理、公共事业管理、美术教育、音乐教育、会计学；
市场营销、汉语言文学、数字媒体艺术、数字媒体技术、新闻学、播音与主持艺术、教育技术学、社会工作与管理、体育教育、英语教育、食品卫生与营养学。
自考考试时间：分为统考和校考，每年参加国家组织的2次统考（4月、10月），统考每次考试较多可报考4科；校考一年两次（6月和12月）由学校自行组织，校考每次考试可报考6科。考试时间均安排在周六和周日。
Ⅳ select case when a.currencycode = 'USD' then '$' else '￥' end as '金额'怎么把amount字段加到货币符号
请问下，你是在专门用命令读取数据库，还是在写程序？
要是专门用命令读取数据库的话，我还真不知道，请您再去网络，或者google一下，
要是写程序的话，可以将此数据用字符串的形式存储，
要是后头要参与计算的话，这样会很麻烦，建议还是存储数字，你可以再建一个字段，专门来存放“￥”，“$”，到时用的时候在前台拼接就行
Ⅵ 谁能给我详细介绍一下美国和英国的电子纳税申报系统啊谢谢
随着经济的全球化和信息技术的飞速发展，世界各国的税收管理呈现诸多趋同性，其全球化趋势之一就是鼓励纳税人采用电子通信技术填写纳税申报表和财务信息。电子报税的主要优势是能够减轻税务局转换税收数据的负担，并且对数据进行集中和快速处理，对选择电子报税的纳税人来讲，报税更加方便、快捷，但纳税成本也相应增加。虽然电子纳税申报从概念上来讲很简单，但是每个国家在税收管理实践中，关于电子报税的应用具有不同的优势与局限。本文选取两个主要经济发达国家——美国和英国，就其电子纳税申报系统背景、内容、进展、效果及存在的问题进行比较性介绍，以期对我国税收管理的信息化建设有所借鉴。
一、美国电子纳税申报系统
美国国内收入局的电子纳税申报系统，始于1985年。实施电子报税的17年之后，也就是在2002年，1.3亿份个人纳税申报表中的35%是通过电子方式填报的。由于许多公司报税表还没有利用电子报税系统，所以公司的电子报税还不是很普遍。到目前为止，美国国内收入局对个人电子报税系统投入了大量的精力，而对公司电子报税系统的开发与使用从最近才开始投入工作。虽然也可以要求一些公司运用电子方式填写纳税申报表，但是公司的纳税申报表与个人申报表有所不同，所以在系统的设计与操作上还有许多差异，还需要对目前的电子报税系统进行完善。
美国的电子纳税申报系统要求申请电子报税者，必须首先在税务局进行注册。国内收入局要求电子报税纳税人必须通过一个合格的中介，该中介被称为电子申报表传送人，即电子申报中介人。想成为电子申报中介人的个人，必须经过注册、背景审核，并满足相应的技术资格标准，获得国内收入局的授权之后，他们才能够替电子报税者运用电子方式填写申报表。
美国电子报税系统是严格和严密的，如果填写的表格不合格，申报表就会被拒绝。目前，有13%的个人电子申报表被美国国内收入局的电子报税软件拒绝，这些不合格的申报表主要是记录数据的缺失和不准确。对于纸质的申报表，美国国内收入局职员同样也能检查出许多这样的错误。
美国对电子报税者最初的激励措施是退税预期贷款。通过电子方式填写纳税申报表的70%纳税人有资格获得退税，有勤劳所得的纳税人税收抵免的平均最高额为1 500美元。一般情况下，有一个或多个需抚养子女的低收入纳税人，有资格获得税收抵免。因为填写纳税申报表之后要等6个星期才能获得美国国内收入局的退税，一些金融机构开始提供与预期退税有关的贷款。在实施电子报税的头10年，一半以上的电子申报表与退税贷款相结构。
为了鼓励电子报税者，国内收入局将电子纳税申报时限延长。通常情况下，多数美国个人纳税人的纳税年度使用的是公历年，美国纳税申报期从1月中旬开始，一般持续3个月，只有很少一部分个人纳税人申请将申报期延长至6个月。对于电子报税者，对其申报和补税时间延长了15天，截止到每年的4月30日。
为了做好电子报税宣传，美国国内收入局为电子报税做广告投入了1800万美元，经过近5年的努力使电子报税率有所上升。国内收入局还与私人部门合作，在2003年1月实施互联网报税，希望即将填写纳税申报表的纳税人能够将互联网报税作为其新的电子报税选择。
美国电子报税进展比较慢的一个现实问题，是国内收入局要求有些税收表格不可以进行电子填写，到目前为止，还有20多种表格不能运用电子方式填报，这在一定程度上会阻碍经营者电子报税的应用。
二、英国电子纳税申报系统
英国国内收入局开始实施的电子纳税申报系统是电子站点服务(ELS)系统，对该系统的技术要求是每年能够处理将近三分之一纳税人报送的自核纳税申报表。英国国内收入局于1997年4月23日成功收到首例报道的ELS纳税申报表，也就是在当年纳税年度结束之后两个星期多一点的时间。
英国的财政年度是从4月6日到下一年的4月5日，英国纳税申报的头一个最后期限是财政年度结束后的6个月，希望由收入局计算机应纳税额的纳税人必须在9月30日之前递交纳税申报表，想自己计算应纳税额的纳税人可以再有4个月的申报时期，直到下一年的1月30日。这样，无论是通过电子申报还是纸质申报的英国纳税人，就有近10个月的时间进行纳税申报。
与美国纳税申报不同的是，多数英国个人纳税人不需要报送纳税申报表。大约三分之一的英国纳税人可以遵从最终税款扣缴制，从工资和利息等所得中扣除应纳税款，也包括预期税款，因此这部分纳税人，通常没有必要填写纳税申报表。对于一些特殊的税收收益，例如工作家庭中的税收抵免，主要由雇主来操作，他会按照规定从应支付工资中减少应纳税款的扣除。大约三分之一的英国纳税人，即910万纳税人，他们无法或不能进行税款自核，因此每年必须填写纳税申报表。其中这些申报表的350万到400万份需要根据收入局的要求，由申报表调制机报送。
英国实施最终税款扣缴制的大部分工作由雇主按照收入局的指导来操作，雇主需要填制一份收入局的编码通告，该通告记载着每位纳税人按规定计算出的税款扣缴额，这些表格是通过电子方式填写的。英国收入局也鼓励雇主用电子方式填写其他的报表，例如雇主的附加福利报表(P11D表)、雇员受雇开始工作报表(P46表)和雇员辞职报表(P45表)。
与美国对电子报税者要求相同，ELS系统也要求电子报税者必须首先在税务局进行注册。但与美国不同的是，英国纳税人能够直接应用收入局的税款计算系统填写纳税申报表，而不用通过一个中介人。在英国，只有通过ELS系统填写申报表的纳税人才符合电子报税的要求。尽管个人纳税人可以申请电子报税，但是电子报税有一定的成本。在实施操作中，只有存在大量纳税申报表需要填写和有申报表调制机的纳税人才有条件申请使用ELS电子报税系统。一旦批准允许进行电子报税，纳税人或其代理人通过计算机的调制解调器填写纳税申报表。税收信息通过一个安全的信息通道(SMG)传送到收入局的ELS界面，该界面与收入局的计算机相联。
报表填写者和国内收入局通过SMG可以发送和收集电子文件，SMG和界面被设计成缓冲器来阻止非官方入口进入到纳税人和收入局的计算机系统。只有ELS的使用者正式在SMG上注册，才能将填报的信息发送给收入局，每个ELS用户的唯一的电子地址与电子转换系统相联。除了给收入局，每个ELS用户有唯一的电子地址与电子转换系统相联。除了SMG入口，在过去两年里，英国收入局也允许个人通过互联网填写纳税申报表。
在2000—2001财政年度的纳税申报期内，43 143名英国纳税人进行了电子报税，一年后该数字上升为73 652。2002—2003财政年度的纳税申报期还没有结束，但截止到2002年7月31日，已经有12 382份纳税申报表是通过电子方式填写的。目前，英国纳税人通过电子方式填写的纳税申报表低于1%，显然公众对电子报税的接受程度还是比较慢，政府还不能保证纳税人将来可以使用一个适合他们的完全免费电子报税系统。对于互联网报税的应用情况，2002年皇家注册会计师协会(ACCA)对英国纳税人的调查显示，回复者中通过互联网填写纳税申报表的低于5%。在这5%纳税人中，一半以上对互联网报税表示满意，而其他人认为互联网报税太消耗时间并且界面对用户不友好。
与美国的退税预期贷款鼓励相比，英国虽然没有类似的金融产品，但英国的国内收入局已经试图采用其他的措施来鼓励ELS用户，例如免费提供软件和调制解调器，对第一年使用电子报税的纳税人允许最高为15美元的税收抵免。从目前来看，英国电子报税的潜在用户比美国要少得多。
与美国相同，英国国内收入局也投入大量财力为电子报税做广告。2001年，英国国内收入局投入750万美元为互联网报税的有效性和填写自核报表的要求做广告。英国政府近期的市场运做努力不是很成功，2003年国内收入局在一个关于互联网报税的广告上投入了百万英镑，但根据ACCA的调查，甚至会计师也很少使用这种纳税服务。
英国电子报税面临的一个问题是，税收管理的某些规定成为电子报税的固有障碍。英国国内收入局通常有12个月的时间来审计一份纳税申报表，相比较而言，美国规定3年。电子报表特有的较快处理过程为收入局提供更多的时间和精力来关注个人纳税申报表的审计上，这样对电子报税者来讲很不利；再一个问题就是电子报税无论在时间上还是设备上都存在额外的成本，需要关注的是额外的成本是否能够转嫁给纳税人；还有一个问题是数据的安全性和保密性。尽管已报告的电子报税问题比较少，但即使这些问题也都是很棘手的。在英国第一个ELS纳税申报期中，就出现了一些故障，最严重的问题是41个已进行ELS注册的纳税调制机，收到了其他调制机的纳税人信息。
在当前的报税期内，也出现了一些问题，英国国内收入局被迫临时关闭了其能够提供电子申报表的自核在线服务系统，因为一些用户反映看到了其他纳税人的税收信息。虽然该问题在一个月之内得到了解决，英国国内收入局还是确信有47名电子报税者的税收信息可能已被其他人提取或修改，另外665我纳税人的税收信息被其他非税务职员访问过。英国国内收入局认为这个问题作为一个预防性措施，会使电子了税系统逐渐完善，目前该系统重新修复，电子报税率已经大幅度提高，同时收入局向人们保证电子报税系统是安全的，要充满信心。
三、总结
尽管美国与英国的纳税申报程序和要求不同，但是两国政府对电子纳税申报的态度很明确，要给予扶持并积极推广。美国2002年度仍有将近三分之二的纳税报表采用邮寄申报，但美国政府相信，在今后的几年，电子纳税申报的比例会逐步上升，因为现在已经进入电子时代，应该将电子时代的科技成果充分应用到税收管理中，以利提高税收管理的质量和效率。英国政府每年将大量经费投入到电子报税的广告宣传中，目的也是提高公人 对电子报税的认知度，从而提高电子报税的比例。同时两国政府还对电子报税者给予税收优惠，如可以获得退税和税收抵免，激励电子报税者的积极性；免费获得软件和部分硬件，最大限度地降低电子纳税成本。
就象其他新生事物一样，电子报税作为一种新的纳税申报方式也有其自身的问题不容忽视。首先是纳税成本问题。纳税人肯定选择对自己便利、纳税成本低的申报方式。即使在经济最为发达的美国，电子报税的成本也不低。据统计，电子报税的平均收费为13美元，而邮寄两盎司重的税收表只需57美分邮资。电子报税的费用没有交到政府，而是由电子报税中介人收取，因为美国现行法规规定，凡是电子报税者必须经过一个电子报税中介。由于这个额外的费用影响了电子报税的推广，美国总统布什在2002年2月提出免费电子报税的建议，却现遭到电子报税中介人的反对，从这一点来看，电子报税的纳税成本问题依然是美国电子报税推广的阻碍。2002年美国电子报税增长率比预期的要低，政府官员也承认如果对电于报税不给予大力支持，绝不可能达到在2007年让80%税表采用电子申报的目标；其次是电子报税的安全性和保密性问题。英国在电子纳税申报的过程中，曾遇到过税收数据被非相关人员访问的问题，侵犯了纳税人要求保密的权利，同时也看到了电子报税系统的安全性，对于电子报税方式的推广及纳税人的信任度极为重要；最后电子报税系统顺利运作的法律环境问题。因为电子报税系统涉及电子申报数据的合法性、电子签名的合法性、电子货币的合法性及纳税人信息被窃取的法律制裁等问题，必须用法律形式加以明确，否则同样会影响电子报税推行的进度，一些经济发达国家出台了电子数据法律等相关法律规范性文件，对电子报税的实施起到了一定的保障作用。
从目前来看，美国与英国的电子报税进展还是比较慢，但是从税收管理的信息化趋势来看，电子报税有很大的推广空间和优势。目前除了美国和英国，加拿大、澳大利亚、韩国等一些经济发达国家都开展了电子纳税申报方式，因此吸取他国的经验教训对我国的税收管理信息化建设大有裨益。
Ⅶ 智付生态项目合法吗
资金盘是指以资金流通形式，拆东墙补西墙，用后加入会员的钱支付给前面会员的网络传销形式。资金盘最核心的特点就是用高额返利，吸引玩家拉人头。这类项目就是击鼓传花游戏，永远都是后加入者“接盘”，并存在非法集资、金融诈骗、传销等违法犯罪活动的行为的风险。
以下是反传防骗快讯收集整理的5月份资金盘项目名称，请广大群众一定要远离，千万不要参与。
AGD环球币 FaMa法码 觅链乐园
多多世界 云逗短视频 NEC新生态
HFF飞帆 蚂蚁云算 币友生态
绿色星球 全民猜歌 嗨啦短视频
LGT动物保护链 BGOEX矿池 星事物
松鼠乐园 享拍视频 99Pool矿池生态
艾淘 茶道商场 PGO穿山甲
STC未来链 CDN全球社交节点 金鼠商城
ZS钻石币 YSTAR 优贝
萌鼠世界 虾米一直赚 星学院
星云矿工 世界学霸 帝伍波
海草短视频 阿拉丁原始矿场 阿贝尔ABEL
预言家FICH 善余商城 EthPro交易所
梦境时代 绿尚健康 影粉世家
维特生态 鱼塘 SPE矿工联盟
藏宝鼠 全民矿工 乐刷短视频
百艺短视频 KIMI客眯 YTC矿池钱包
Smartx智图 启云（启云） 起点资讯FIN
World pay Pizza宝 中心币CCC
全球环保ESC 钛币Ti 纳米链NML
绿色地球 云健康 小猪量化机器人
RRCP智能方舟 LFEX拉菲交易所 快步
去嗨皮 U比生活 慈善币AOT
GTA基因链 趣出行 PDC熊猫币
趣淘鲸 LDC莱达生态 3C物联
KYBER - KNC rtidcoin-RTID ACH币
NowEx合约 智链云仓 CHMV视频
神域online FreePool自由矿池 ELS魔域精灵
健康助力BBE ENT娱乐链 火花短视频
绿洲世界 咪多多 HTV传媒
ATR安泰链 DA星球 3Q盛世
酒圣 AT生态币 GLUT竞游联盟
四方算力 魔幻炫影 算力猫
HTV广告 超级算力社区 趣淘鲸
好玩吧 相玉有钱 TORO公牛
Pizza披萨链 链知星 5GK
HXC生态链 客眯KIMI 稀释币
感恩时代 ZLB陨石链 AToken
芝麻开门 顶点号 蚂蚁云算
NEC新生态币 优视短视频 链音
反传防骗快讯提醒：银保监会、中央网信办、公安部等多部门提示投资者，一些不法分子打着“金融创新”、“区块链”的旗号，通过发行所谓“虚拟货币”、“虚拟资产”、“数字资产”等方式吸收资金，侵害公众合法权益。此类活动并非真正基于区块链技术，而是炒作区块链概念行非法集资、传销、诈骗之实，实质是“借新还旧”的庞氏骗局，资金运转难以长期维系。
不法分子通过公开宣传，以炒币升值获利和发展下线获利为诱饵，吸引公众投入资金，并利诱投资人发展人员加入，不断扩充资金池，具有非法集资、传销、诈骗等违法行为特征。[此文来源反传防骗快讯，版权归原作者，如侵权，请联系删除]
反传销救助中心：提醒广大市民：凡是让你先交钱，；然后层层拉人头赚钱的就是传销。凡是交钱无依无据无凭无证的，让你等待发大财的都是非法集资。须谨慎防范。抵制传销从我做起，举报传销人人有责。
Ⅷ 比特币交易平台这么多，新人小白很想做比特币理财，刚入门怎么避免被坑
现在数字货币领域很火，大家都知道这行能赚钱，所以算是龙蛇混杂。我建议新人选择像OKEx比特币交易所进行学习和投资，可以少踩很多坑。我的回答您还满意吗？满意的话，请采纳
Ⅸ Java 连接access 数据库成功 能够读取数据 为什么插入数据总报错 但是打开
系统已经安装好SQL Server2000并且打上了SP3补丁；安装好Office套件里面的Access；使用一个支持纯文本编辑并且带有行号显示的编辑器，
二、准备
1、程序提供了SQL数据库格式：有一个MDF文件，或者提供了创建SQL数据库的SQL脚本文件（后缀名为.sql）。
2、更多的是没有提供SQL数据库或脚本文件的，这时，就要自己来做这一切了，这也是我们这个帖子主要解决的问题。
对照原来的access，改写下面的部分：
（1）sql数据库表是没有自动字段的，因此原来access中的自动字段被转换成了普通字段，需要手工改成标识类型，增量为1。
（2）所有的时间字段，如果定义了默认值，那么原来肯定是now()，需要改成getdate()
（3）原来字段的默认值一般都不会自动引入，需要对照原表的字段手工添加。
（4）由于数据库的不同，access和sql的字段类型很多转换后就变化了，比如原来的《是否》字段会被转换成bit或者int，备注字段被转换成longtext，text字段转换成varchar等等，一般来说不会影响程序运行，如果有问题，我们在下面的程序改写部分再说。
（5）如果你要用一个For SQL的程序，里面用到了存储过程，那么你应该有这个程序本身建立SQL数据库的方法：有其本身的SQL数据库文件，或者sql脚本；如果没有的话，采用导入access数据库的方式是无法建立存储过程的，这样你最好放弃这个For SQL的程序版本，使用同样版本的For Access的程序，导入access数据库，然后用下面的改写方法自己改成SQL版本的程序。
三、连接字符串的改写
可参考动网的这段，分别是针对access和SQL的
Dim ConnStr
If IsSqlDataBase = 1 Then
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "dvbbs7"
SqlPassword = ""
SqlUsername = "dvbbs"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Els
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "dvbbs7"
SqlPassword = ""
SqlUsername = "dvbbs"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
也可以简洁一些，写成这样：
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider = Sqloledb; User ID = sa; Password = 1234567; Initial Catalog = dvbbs7; Data Source = (local);"
里面的数据库名称、数据源、用户、密码根据自己的实际情况改写一下。
四、程序的改写
1、如果你幸运，拿到的是For SQL的程序，那么如果上面的数据库建立过程没有遇到麻烦，程序基本上就可以运行了，出错的话，只是程序本身的bug，如何修改不是这个帖子讨论的内容，就不赘述了。
2、大多数情况，程序本身是For Access的，与For SQL的程序差别主要是程序中使用到的SQL查询语句。注意，SQL查询语句是数据库应用不可缺少的部分，不管是For SQL还是For Aceess的程序使用的语法大体差不多，但是有一些微妙的差别，正是这些差别，造成了程序的不通用，也是我们需要修改的主要内容。这样一般要修改的部分如下：
（1）时间函数的问题：SQL数据库的时间函数与access不同，最常见的是取现在时间的函数，access是now()，SQL是getdate()。因此凡是在where子句中使用了now()的地方都要改成getdate();注意，now()函数在asp程序本身也要使用，凡是不在数据库查询或执行语句中使用的now()函数千万不要改。
（2）时间比较函数：datediff('d','时间1'，‘时间2’)这是access查询用的格式，SQl中这些引号都要去掉，同时时间格式的前后可能加上了#，这也要去掉。同样这也是指在sql语句中的，在asp语句中的要保持原样。
（3）空值的表示：在access中，判断空值一般用是否＝""来表示，但是这在SQL中往往出错，如果遇到出错的问题或者程序运行不正常，可以改成如这样判断：where (name is null)
（4）真假值判断：access中可以用＝true、＝false来判断，但是在SQL中就会出错，因此在SQL查询或执行语句中这类判断要分别改成＝1、＝0。注意一点：有些程序虽然写成＝“true”，但是由于有引号，所以这个字段是字符类型的，你不能改成＝1，保持原样即可.
程序的调试
前面推荐使用带有行号的编辑器，是因为上述的改写不大可能是直接搜索程序源码来做，很难找全。
我采取的方式一般这样：数据库改写完成，直接调试程序，出错后，看看出错的提示，找到相应文件的代码行，但是根源往往不是那行，比如出错的语句是：conn.execute(sql)，但是这句本身是没有错的，错误原因是里面的这个sql字符串，那就向上看这个sql字符串是如何生成的，按照上面所说的程序修改办法修改。
所有的默认值都丢失了。主要是数字类型和日期类型。
所有now()，time()，date()要改成getdate()。
所有datediff('d', time1, time2)要改成datediff(day, time1, time2)
有可能一些true/false类型不能使用，要变为1/0。
备注类型要通过cast(column as varchar)来使用。
CursorType要改成1,也就是打开数据库时要给出第一个数字参数为1，否则记录可能显示不完整。
isnull(rowname)要改成rowname = null
ACCESS的数据库中的自动编号类型在转化时，sql server并没有将它设为自动编号型，我们需在SQL创建语句中加上identity，表示自动编号！
转化时，跟日期有关的字段，SQL SERVER默认为smalldatetime型，我们最好将它变为datetime型，因为datetime型的范围比smalldatetime型大。有时用smalldatetime型时，转化失败，而用datetime型时，转化成功。
对此两种数据库进行操作的sql语句不全相同，例如：在对ACCESS数据库进行删除纪录时用："delete * from user where id=10",而对SQL SERVER数据库进行删除是用："delete user where id=10".
日期函数不相同，在对ACCESS数据库处理中，可用date()、time()等函数，但对SQL SERVER数据库处理中，只能用datediff,dateadd等函数，而不能用date()、time()等函数。
在对ACCESS数据库处理中,sql语句中直接可以用一些VB的函数，像cstr()函数，而对SQL SERVER数据库处理中，却不能用。
下表比较了MicrosoftAccess数据库（MicrosoftAccess数据库：数据和对象（如表、查询或窗体）组成的集合，与特定的主题或用途有关。MicrosoftJet数据库引擎用于管理数据。）和MicrosoftAccess项目（MicrosoftAccess项目：与MicrosoftSQLServer数据库连接且用于创建客户/服务器应用程序的Access文件。项目文件中不包含任何数据或基于数据定义的对象（如表或视图）。）的数据类型（数据类型：决定字段可拥有的数据类型的字段特征。数据类型包括Boolean、Integer、Long、Currency、Single、Double、Date、String和Variant（默认））。
MicrosoftAccess数据类型SQLServer数据类型
是/否（“是/否”数据类型：一种字段数据类型，用于只有两种可能值（如是或否、True或False）的字段。不允许有Null值。）bit（bit数据类型：在Access项目中，一种存储值为1或0的数据类型。接受1和0以外的整数值，但总是将其解释为1。）
数字（“数字”数据类型：MicrosoftAccess数据库中的一种字段数据类型，用于将在数学运算中使用的数值数据。但是，若要显示或计算货币值，则应使用“货币”数据类型。）（字节）tinyint（tinyint数据类型：Access项目中的一种占一个字节（8位）的数据类型，用于存储从0到255范围内的整数。）
数字（整型）smallint（smallint数据类型：Access项目中的一种2字节（16位）数据类型，存储位于-2^15(-32,768)与2^15-1(32,767)之间的数字。）
数字（长整型）int（int数据类型：Access项目中的一种4字节（32位）数据类型，存储位于-2^31(-2,147,483,648)与2^31-1(2,147,483,647)之间的数字。）
数字（单精度浮点型）real（real数据类型：在Access项目中，一种近似的数值数据类型，精度为7位，正值取值范围大致从1.18E-38到3.40E+38，负值取值范围大致从-1.18E-38到-3.40E+38，也可以取0。）
（无等价的数据类型）bigint（bigint数据类型：Access项目中的一种8字节（64位）数据类型，存储位于-2^63(-9,223,372,036,854,775,808)与2^63-1(9,223,372,036,854,775,807)之间的数字。）
数字（双精度浮点型）float（float数据类型：在Access项目中，一种近似的数值数据类型，精度为15位。它所存储的正值范围大致是从2.23E-308到1.79E+308，负值范围大致是从-2.23E-308到-1.79E+308，也可以为0。）
货币（“货币”数据类型：MicrosoftAccess数据库中的一种数据类型，用于与货币有关的计算或其精确度极其重要的定点计算。）money（money数据类型：在Access项目中，用于存储货币值的数据类型，取值范围从-922,337,203,685,477.5707到922,337,203,685,477.5807，精确度为万分之一个货币单位。）
smallmoney（smallmoney数据类型：Access项目中的一种存储货币值的数据类型，取值范围从-214,748.3648到214,748.3647，精确度为万分之一个货币单位。当显示smallmoney值时，会将它们四舍五入为两个小数位。）
小数/数值（decimal数据类型（Access数据库）：精确的数值数据类型，用于存储-10^38-1到10^38-1的值。可以指定数值范围（最大总位数）和精度（小数点右边的最大位数）。）decimal（decimal数据类型（Access项目）：精确的数值数据类型，用于存储-10^38-1到10^38-1的值。可以指定数值范围（最大总位数）和精度（小数点右边的最大位数）。）
numeric（numeric数据类型：在Access项目中，一种精确的数值数据类型，取值从-10^38-1到10^38-1。可以指定数值范围（最大总位数）和精度（小数点右边的最大位数）。）
日期/时间（“日期/时间”数据类型：Access数据库的一种数据类型，用来存放日期和时间信息。）datetime（datetime数据类型：在Access项目中，日期和时间的数据类型，范围从1753年1月1日到9999年12月31日，精确度为三百分之一秒，即3.33毫秒。）
smalldatetime（smalldatetime数据类型：Access项目中的一种日期和时间数据类型，精度不如datetime时间数据类型。数据取值范围从1900年1月1日到2079年6月6日，精确度为一分钟。）
自动编号（“自动编号”数据类型：MicrosoftAccess数据库中的一种字段数据类型，当向表中添加一条新记录时，这种数据类型会自动为每条记录存储一个唯一的编号。可以产生三种编号：顺序号、随机号和同步复制ID。）（递增）int（int数据类型：Access项目中的一种4字节（32位）数据类型，存储位于-2^31(-2,147,483,648)与2^31-1(2,147,483,647)之间的数字。）（定义了Identity属性）
文本（“文本”数据类型：MicrosoftAccess数据库中的一种字段数据类型。“文本”数据类型最多可以包含255个字符，或者是由FieldSize属性指定的一个小一些的字符数。）(n)varchar(n)（varchar(n)数据类型：Access项目中的一种可变长度的数据类型，最大长度为8,000个ANSI字符。）
nvarchar(n)（nvarchar(n)数据类型：在Access项目中，一种可变长度的数据类型，最多可含4,000个Unicode字符。Unicode字符每字符占两个字节，而且支持所有国际字符。）
备注（“备注”数据类型：在MicrosoftAccess数据库中的一种字段数据类型。“备注”字段最多可以包含65,535个字符。）text（text数据类型：Access项目中的一种长度可变的数据类型，最多可存储2^31-1(2,147,483,647)个字符；默认长度为16。）
OLE对象（“OLE对象”数据类型：字段的数据类型之一，用于在其他应用程序中创建的、可链接或嵌入（插入）到Access数据库中的对象。）image（image数据类型：在Access项目中，一种长度可变的数据类型，最多可存储2^31-1(2,147,483,647)字节的二进制数据。image数据类型用来存储BLOB（二进制大对象），如图片、文档、声音和已编译代码。）
同步复制ID（又名全局唯一标识符（GUID：在Access数据库中，一种用于建立同步复制唯一标识符的16字节字段。GUID用于标识副本、副本集、表、记录和其他对象。在Access数据库中，GUID是指同步复制ID。）(GUID)）uniqueidentifier（uniqueidentifier数据类型：在Access项目中，16字节的全局唯一标识符(GUID)。）（仅适于SQLServer7.0或更高版本）
超链接（“超链接”数据类型：存储超链接地址的Access数据库字段的数据类型。地址最多可以包含四部分，用以下语法格式编写：displaytext#address#subaddress#。）char（char数据类型：在Access项目中，一种固定长度的数据类型，最多可含8,000个ANSI字符。）,
nchar（nchar数据类型：在Access项目中，一种固定长度的数据类型，最多可含4,000个Unicode字符。Unicode字符每字符占两个字节，而且支持所有国际字符。）,varchar,nvarchar（Hyperlink属性设为Yes）
（无等价的数据类型）varbinary（varbinary数据类型：Access项目中的一种可变长度的数据类型，最多可存储8,000字节的二进制数据。）
（无等价的数据类型）smallint（smallint数据类型：Access项目中的一种2字节（16位）数据类型，存储位于-2^15(-32,768)与2^15-1(32,767)之间的数字。）
（无等价的数据类型）timestamp（timestamp数据类型：在Access项目中，一种每插入或更新一行就会自动更新的数据类型。timestamp列中的值不是datetime数据，而是binary(8)或varbinary(8)，标明了数据修改的顺序。）
（无等价的数据类型）charnchar
（无等价的数据类型）sql_variant（sql_variant数据类型：Access项目中的一种数据类型，存储除text、ntext、image、timestamp和sql_variant类型以外的多种数据类型的值。在列、参数、变量或用户定义函数的返回值中使用。）
（无等价的数据类型）用户定义（用户定义的数据类型：在MicrosoftSQLServer数据库中，允许某列包含的数据的类型定义，由用户利用现有的系统数据类型定义。规则和默认值仅可以绑定到用户定义的数据类型。）
注释在Access项目或SQLServer数据库中，前缀“n”代表“国家/地区”，意思是这个数据类型是启用Unicode的。在Access数据库中，全部文本列在默认情况下都是启用Unicode的。
ACCESS转SQL需要注意的问题
2006-2-13 16:01:20
很多朋友想用SQL2000数据库的编程方法，但是却又苦于自己是学ACCESS的，对SQL只是一点点的了解而已，这里我给大家提供以下参考---将ACCESS转化成SQL2000的方法和注意事项
一，首先，我说的是在ACCESS2000，SQL2000之间转换，其他的我也还没有尝试过，希望大家多多试验，肯定是有办法的；
二，转换的方法
1，打开”控制面板“下”管理工具“中的”数据库源“；
2，按”添加“添加一个新的数据源，在选择栏里选”DriverdomicrosoftAccess
(*.mdb)”,完成后将出现一个框,
在”数据库源“里面输入你想写的名称，我取名叫“ABC”,说明不需要填，接着，按下面的选择，寻找你的数据库地址和选中（注意，请先备份自己的ACCESS数据库），然后确定。
数据源在这里建好了，剩下转换了。
3，打开SQL2000企业管理器，进入数据库，新建一个空的数据库“ABC”；
4，选择新建立的数据库，按鼠标右键，选择“所有任务”下“导入数据”，按“下一步”继续；
5，在数据库源下拉但中选择”DriverdomicrosoftAccess(*.mdb)“，在”用户/系统DSN“中，选种你刚才添加的”ABC“，按”下一步“；
6，“目的”不需要修改，选择服务器（一般下为自己的本机"local",也可以选择服务器地址或者局域网地址,确定你的权限是否可以操作,),"使用WINDOWS身份验证"指用自己的系统管理员身份操作,"使用SQL身份操作验证"可以用于网站的操作,推荐用后者;
7,选上"使用SQL身份操作验证"后,填写你的用户名和密码,我自己选择的是系统默认号码"sa","****",数据库选择刚新建的"ABC",按"下一步";
8,这一步的两个单项选择,"从数据源复制表和视图"与"用一条查询指令指定要传输的数据",选择前者,按"下一步"继续;
9,这里将出现你自己ACCESS数据库的表,按"全选"后,下一步;
10,"DTS导入/导出向导",看"立即运行"被选中按"下一步",
11,按"完成"继续;
12,这个步骤你将看到你的数据被导入SQL2000里面,当出现"已经成功把XXX个表导入到数据库"的字样,而且所有的表前面都有绿色的勾,就表示成功导入所有数据,如果中途出现问题或者表前面有红色的*的话,说明该表没有成功导入,这时就要回去查看自己的操作是否正确了.
三,数据修改
1,由于SQL2000里面没有"自动编号",所以你的以"自动编号"设置的字段都会变成非空的字段,这就必须手工修改这些字段,并把他的"标示"选择"是",种子为"1",增量为"1",
2,另外,ACCESS2000转换成SQL2000后,原来属性为"是/否"的字段将被转换成非空的"bit",这时候你必须修改成自己想要的属性了;
3,另外,大家要注意对时间函数的把握.ACCESS与SQL是有很多不同的.
四、相关的字段问题
1.ACCESS的数据库中的自动编号类型在转化时，sqlserver并没有将它设为自动编号型，我们需在SQL创建语句中加上identity，表示自动编号！
2.转化时，跟日期有关的字段，SQLSERVER默认为smalldatetime型，我们最好将它变为datetime型，因为datetime型的范围比smalldatetime型大。我遇见这种情况，用smalldatetime型时，转化失败，而用datetime型时，转化成功。
3.对此两种数据库进行操作的sql语句不全相同，例如：在对ACCESS数据库进行删除纪录时用："delete*fromuserwhereid=10",而对SQLSERVER数据库进行删除是用："deleteuserwhereid=10".
4.日期函数不相同，在对ACCESS数据库处理中，可用date()、time()等函数，但对SQLSERVER数据库处理中，只能用datediff,dateadd等函数，而不能用date()、time()等函数。
5.在对ACCESS数据库处理中,sql语句中直接可以用一些VB的函数，像cstr()函数，而对SQLSERVER数据库处理中，却不能用。