| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 432 人关注过本帖
标题:DataEnvironment设计器连接SQL数据库的问题
只看楼主 加入收藏
sncelpl
Rank: 1
等 级:新手上路
帖 子:84
专家分:0
注 册:2006-6-28
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:6 
DataEnvironment设计器连接SQL数据库的问题
DataEnvironment设计器连接SQL数据库DataReport连接DataEnvironment为空白是怎么回事请大佬,我在服务器上看了下dlp里也有数据可能是DataEnvironment里的dlp没有数据。数据库连接  Set Con = New ADODB.Connection '新建一个连接
    Con.Provider = "SQLOLEDB.1"
    Con.ConnectionString = "DATABASE=DLSY;SERVER=192.168.1.8;UID=sa;PWD=sa;"
    DataEnvironment.Connection.ConnectionString = Con

以下是打印
lsRS.AddNew
            For i = 0 To 32
                lsRS.Fields(i) = RS.Fields(i)
            Next
            lsRS.Update
            RS.MoveNext
        RS.MoveFirst
    now_find = Not now_find
    If MsgBox(("确定打印吗"), vbOKCancel, " 提示") = vbOK Then
电缆交流试验Report.DataMember = "dlp"
        Unload DataEnvironment
        电缆交流试验Report.Show
图片附件: 游客没有浏览图片的权限,请 登录注册


[此贴子已经被作者于2022-7-11 16:35编辑过]

搜索更多相关主题的帖子: 设计 SQL 数据库 Con 连接 
2022-07-11 16:27
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:37
帖 子:139
专家分:873
注 册:2021-8-1
收藏
得分:7 
参考:
 Set cn = CreateObject("adodb.connection")
    dizhistr = "Provider=sqloledb;Server=XXXXXX;Database=XXXX;Uid=XXXXX;Pwd=XXXX"
    cn.Open dizhistr
    On Error Resume Next
    sqlstr = "select * from 模块 "
    scrr = cn.Execute(sqlstr).GetRows
    Set jg = cn.Execute(sqlstr)
    cn.Close
    arr = ZhuanZhi(scrr)
2022-07-11 16:38
sncelpl
Rank: 1
等 级:新手上路
帖 子:84
专家分:0
注 册:2006-6-28
收藏
得分:0 
回复 2楼 约定的童话
图片附件: 游客没有浏览图片的权限,请 登录注册
我是用的网络连接

[此贴子已经被作者于2022-7-11 16:43编辑过]

2022-07-11 16:42
sncelpl
Rank: 1
等 级:新手上路
帖 子:84
专家分:0
注 册:2006-6-28
收藏
得分:0 
回复 2楼 约定的童话
问题已找到了
lsRS.AddNew
            For i = 0 To 32
                lsRS.Fields(i) = RS.Fields(i)
            Next
            lsRS.Update
            RS.MoveNext
        RS.MoveFirst
    now_find = Not now_find
    If MsgBox(("确定打印吗"), vbOKCancel, " 提示") = vbOK Then
电缆交流试验Report.DataMember = "dlp"
        Unload DataEnvironment
        电缆交流试验Report.Show
While Not lsRS.EOF()
lsRS.Delete
lsRS.MoveNext
Wend
End If
是数据还没传就删除了,While Not lsRS.EOF()
lsRS.Delete
lsRS.MoveNext
Wend
请问一下怎么可以我点确定后10秒再执行删除
2022-07-11 18:02
cwa9958
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:49
帖 子:204
专家分:1121
注 册:2006-6-25
收藏
得分:7 
建议删除数据单独用个过程来执行。
可以用定时器启动删除程序。你在这里只要给个启动定时器命令就可以了。
2022-07-13 07:56
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:37
帖 子:139
专家分:873
注 册:2021-8-1
收藏
得分:0 
回复 4楼 sncelpl
Public Sub Delay(HowLong As Date)    '延时程序
    TempTime = DateAdd("s", HowLong, Now)
    While TempTime > Now
        DoEvents    '控制权交给windows
    Wend
End Sub
加个延时: Delay 10
2022-07-13 08:09
sncelpl
Rank: 1
等 级:新手上路
帖 子:84
专家分:0
注 册:2006-6-28
收藏
得分:0 
回复 6楼 约定的童话
加个定时执行不行。
我加了个MsgBoxEx,0.1秒自动关闭就行了



Private Declare Function MsgBoxEx Lib "user32" Alias "MessageBoxTimeoutA" _
(ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal _
wType As VbMsgBoxStyle, ByVal wlange As Long, ByVal dwTimeout As Long) As Long '声明
Option Explicit


 lsRS.AddNew
            For i = 0 To 32
                lsRS.Fields(i) = RS.Fields(i)
            Next
            lsRS.Update
            RS.MoveNext
        RS.MoveFirst
    now_find = Not now_find
 If MsgBox(("确定打印吗"), vbOKCancel, " 提示") = vbOK Then
电缆交流试验Report.DataMember = "dlp"
     Unload DataEnvironment
        电缆交流试验Report.Show
MsgBoxEx 0, "数据传送成功", "自动关闭", vbInformation, 1, 100
While Not lsRS.EOF()
lsRS.Delete
lsRS.MoveNext
Wend
End If
2022-07-14 12:14
快速回复:DataEnvironment设计器连接SQL数据库的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.054506 second(s), 9 queries.
Copyright©2004-2022, BCCN.NET, All Rights Reserved