求vb 修改AC数据库的代码
set conn=Server.CreateObject("ADODB.Connection") '设置数据库访问的方式 conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("data.mdb") '打开服务器当前路径的data.mdb数据库 exec="select * from user where login='"+session("username")+"'and pwd='"+pwd_old...
怎样通过ADODC把输入的记录保存到AC2000数据库中?
Set use = adsl.OpenRecordset("select * from gongdan where liushui='" + Trim$(Text1.Text) + "' or duankou='" + Trim$(Text2.Text) + "'")If Not use.EOF Then MsgBox "您填写的[流水号]或[端口号]在此之前已经填写过了。", vbInformation, "系统提示"Exit Sub If IsDate(Text...
在C#中调用\/操作access数据库中的报表
可以。我给一段VB代码,C#思路跟这个差不多 Dim MSAccess As Access.ApplicationPrivate Sub Command1_Click()Set MSAccess = New Access.ApplicationMSAccess.OpenCurrentDatabase (App.Path & "\\AA.mdb")MSAccess.DoCmd.OpenReport "打印", acViewNormalMSAccess.CloseCurrentDatabaseSet MSAccess =...
求VB读ACCESS问题
您根据我的写法就可以成功连接ACCESS(mdb)数据库 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim SQL AS String Private Sub Form_Load()cn.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;Persist security info= False; Data source=" & App.Path & "\\Access数据库...
vb怎么调用access数据库中报表
利用Automation运行Microsoft Access报表 1. 使用Microsoft Access建立数据库(如:novelty.mdb)的相关报表(如:rptEmployess)。2. 创建引用 在VB中使用“Project References"菜单创建一个对Microsoft Access 8.0 Object Library 的引用。3. 程序清单 注释:References MS Access 8.0 Object Library (this ...
vb access输入某字段内容查询其他信息
s = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Documents and Settings\\Ballsky\\桌面\\进货单.accdb" '换成你自己的AC接连字符串 Cnn.Open s Rs.CursorLocation = adUseClient Rs.Open "这里换成你的数据库表名称", Cnn, 3, 3 Do While Not Rs.EOF If Text1.Text = Rs.Fields(...
用VB将Access中的某几列数据导入到excel当中?
给你一段代码,修改下即可!第一步:创建一个Excel的链接表!'输入目录向数据库链接一个Excel表 并且加上 "XL"Sub LinkInxlsData(strSelectDir As String, tabName As String)On Error GoTo Err_InExcel Dim rst1 As ADODB.Recordset Dim cat1 As New ADOX.Catalog Dim tbl1 As ADOX.Table Di...
谁能帮我编一段用VB对CAD进行二次开发的程序代码啊
Cdate,转换为date数据类型,例:MyShortTime = CDate("11:13:14 AM")下面的代码可以写出一串数字,从000-099。Sub test()Dim add0 As StringDim text As StringDim p(0 To 2) As Doublep(1) = 0 'Y坐标为0p(2) = 0 'Z坐标为0For i = 0 To 99 '开始循环 If i < 10 Then '如果小于10 ...
VB复制access数据表到另一个access
Private Sub CopyAccess ()Dim appAccess As New Access.Application appAccess.OpenCurrentDatabase ("db1.mdb")appAccess.DoCmd.CopyObject "db2.mdb", , acTable, "tab1"Set appAccess = Nothing End Sub 使用方法:...
...要用VB语言实现新建CAD图形,并画出图形 具体代码是什么,VB如何...
先在 工程-引用 里面增加 aucocad类型库然后写代码如下:Private Sub Command1_Click()Dim p1(2) As Double, p2(2) As Double, p3(2) As Double Dim acad As AcadApplication Dim adoc As AcadDocument Dim aline As acadline Dim dima As AcadDimAligned Set acad = CreateObject("autocad....