您现在的位置是:首页 >

彩客网资料库 求一个简单的access资料库作品,帮帮忙啊,急用!谢大神

火烧 2022-07-23 08:24:26 1047
求一个简单的acce 资料库作品,帮帮忙啊,急用!谢大神 求一个简单的ae 资料库作品,帮帮忙啊,急用!谢大神这个绝对符合你的口味求一个简单的ACCESS资料库作品 特别急车辆管理系统: 管理车辆使用

求一个简单的access资料库作品,帮帮忙啊,急用!谢大神  

求一个简单的aess资料库作品,帮帮忙啊,急用!谢大神

这个绝对符合你的口味

求一个简单的ACCESS资料库作品 特别急

车辆管理系统: 管理车辆使用登记,违章查询责任驾驶员

求一个完整javaweb简单的网页+资料库,急需,求各位大神帮忙,一定报答

像使用者登入、写一下日记?/不难啊。。。。。。

求一个超简单的vb资料库

你要是用ado控制元件跟aess建立资料库的话,可以帮你~~~

VB管理ACCESS资料库!非常急!希望帮帮忙!

用整合资料环境开启现有资料库,可以自动生成窗体。不过不美观。。。

高手帮帮忙,要求制作一个简单的个人网站,后台用资料库连线,

全是广告啊,你下载个dedecms系统,然后买个空间和域名,ftp传上去就好啦。
或者找一些免费的二级域名带空间的,能跑php的,传几个php档案,直接访问试试也行,反正拿来测试。

彩客网资料库 求一个简单的access资料库作品,帮帮忙啊,急用!谢大神

急!求高手帮忙做个aess资料库。

qq:48868603
先看看题目。

求帮忙做Aess资料库作业

孩子,分数跟人民币不是等值的。你只有等雷锋了。

用JavaScript程式码新增到aess资料库里大神们帮帮忙

用javascrit是不能做的
采纳哦

ACCESS资料库自动备份怎么实现?大神们帮帮忙

用VB编写自动备份档案程式 -------------------------------------- Public Sub BackupFile(Filename As String, Drive As String, Folder As String) Dim Fso As New FileSystemObject '建立 FSO 物件例项 Dim Dest_path As String, Counter As Long Dim StrDay As String, StrMonth As String, NewFilename As String Counter = 0 Do While Counter < 6 '如果驱动器没准备好,继续检测。共检测 6 秒 Counter = Counter + 1 Call Waitfor(1) '间隔 1 秒 If Fso.Drives(Drive).IsReady = True Then Exit Do End If Loop If Fso.Drives(Drive).IsReady = False Then '6 秒后目标盘仍未准备就绪,退出 MsgBox " 目标驱动器 " & Drive & " 没有准备好! ", vbCritical Exit Sub End If If Fso.GetDrive(Drive).FreeSpace < Fso.GetFile(Filename).Size Then MsgBox "目标驱动器空间太小!", vbCritical '目标驱动器空间不够,退出 Exit Sub End If If Right(Drive, 1) <> ":" Then Drive = Drive & ":" End If If Left(Folder, 1) <> "" Then Folder = "" & Folder End If If Right(Folder, 1) <> "" Then Folder = Folder & "" End If If Day(Date) < 10 Then StrDay = "0" & Day(Date) Else StrDay = Day(Date) End If If Month(Date) < 10 Then StrMonth = "0" & Month(Date) Else StrMonth = Month(Date) End If 'Fso.FileExists () NewFilename = "newfilename" Dest_path = Drive & Folder If Not Fso.FolderExists(Dest_path) Then '如果目标资料夹不存在,建立之 Fso.CreateFolder Dest_path End If Fso.CopyFile Filename, Dest_path & NewFilename, True '拷贝,直接覆蓋同名档案 Set Fso = Nothing End Sub Private Sub Waitfor(Delay As Single) '延时过程,Delay 单位约为 1 秒 Dim StartTime As Single StartTime = Timer Do Until (Timer - StartTime) > Delay Loop End Sub Private Sub Form_Load() BackupFile "filename", "d:", "filebackupdir" End End Sub

  
永远跟党走
  • 如果你觉得本站很棒,可以通过扫码支付打赏哦!

    • 微信收款码
    • 支付宝收款码