VB程序员博客

[adodc][语句][使用]adodc 中的 SQL语句无法使用问题

admin — Mon, 08 Feb 2010 23:10:16 +0000

我用ADODC执行SQL语句出现语法错误请高手解决
我先用模块做的
模块中如下代码
public cns as string
public cs as connection
Public Sub loadmdb()　　
cns = App.Path
If Right(cns, 1) <> "" Then
cns = cns + ""
End If
cns = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" 小型商店管理系统.mdb" '此处是相对路径保证没问题
End Sub

frm load事件中调用该连接字符串。代码如下：
Private Sub Form_Load()
Call loadmdb　　　　‘调用连接字符串过程
adodc1.ConnectionString = cns
adodc1.CommandType = adCmdText
adodc1.RecordSource = "select * from 员工工资表" '此地也保证没问题
adodc1.Refresh
End Sub

按钮代码如下
cs.execute "select * from 员工工资表 where id='& text1.text &'"

有问题就是按钮代码处说有错编译不了

然后我又用别的办法做了
直接在按钮处写了如下代码还是有问题

adodc1.recordsource="select * from 员工工资表 where id='& text1.text &'"
adodc1.refresh

说是该行的函数参数错误

帮我看下谢谢了
对了忘了一句
在frm load中忘记了两条代码

Set cs = New Connection
cs.Open cnsadodc1.recordsource="select * from 员工工资表 where id='" & text1.text & "'"<
Source=" 小型商店管理系统.mdb" '此处是相对路径保证没问题

小的前面多一个空格会没问题 ????? cns = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= 小型商店管理系统.mdb"<
你的变量 cns 是本地路径我看应该是 cs = "Pro…. 吧 ?

cs = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" 小型商店管理系统.mdb" '此处是相对路径保证没问题 <
晕看错了<
adodc1.recordsource="select * from 员工工资表 where id=" & Chr(39) & Text1.Text & Chr(39)

呵…那些符号很烦人的会乱所以我都用 Chr(39)代替<
adodc1.recordsource="select * from 员工工资表 where id='" & text1.text & "'"

以上这样应该没问题，要注意id字段为字符型，注意双引号的位置。回12F 为什么要符号呢？经常会有有一堆的单双引号逗号混在一起, 稍不留神便多一个或少一个, 找了老半天有时还让你找不出来…..

[实现][程序][界面]vb怎样实现程序界面窗口在桌面快捷方式图标的下部

admin — Mon, 08 Feb 2010 19:21:03 +0000

rt程序跟着快捷方式图标跑，这个比较麻烦。
首先，图标在哪都不确定。先在桌面上找到快捷方式的坐标，
计算该快捷方式下面的高度够不够显示整个窗口：
够，在该位置显示窗口；
不够，在屏幕中心显示窗口。不过费上面那事儿，还不如显示窗口时，如能恢复到上次关闭前保存的位置就恢复该位置，不能恢复的话就在屏幕中心显示。也就是说，“恢复以前位置”比“显示在指定桌面快捷方式下面的位置”更好、更实用。<

[Project][成员]不是Project的成员

admin — Mon, 08 Feb 2010 16:31:03 +0000

这是我截取的一段桌面抓屏的程序片段
Private Sub frmCapture_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Me.DrawStyle = DOT
'Me.DrawWidth = 2
'Me.ForeColor = &HFF0000
DrawBox = True
Dim DeskhWnd, DeskDC As Integer
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
DeskhWnd = modGraphics.GetDesktopWindow()
DeskDC = GetDC(DeskhWnd)
BitBlt(Me.hDC, 0, 0, VB6.PixelsToTwipsX(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width), VB6.PixelsToTwipsY(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height), DeskDC, 0, 0, SRCCOPY)
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.BackgroundImage = Me.Image
UpFlag = False
blnCapturing = True
Cursor = System.Windows.Forms.Cursors.Cross
Timer1.Enabled = True
End Sub
我用的是VS2005，但不知道为什么在“Me.DrawStyle = DOT”和“BitBlt(Me.hDC, 0, 0, VB6.PixelsToTwipsX(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width), VB6.PixelsToTwipsY(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height), DeskDC, 0, 0, SRCCOPY)”处，“Me.DrawStyle = DOT”和“Me.hDC”老是报错，提示为“DrawStyle”,"hDC"，“Image”不是Project的成员.这是为什么？还请各位大虾原来小弟的幼稚Const SRCCOPY =&HCC0020 '你没加这个宣告
这个 SRCCOPY 你可以改为 vbSrcCopy 不必宣告常量

VS2005 我没用过, 下面代码你试试看, 能不能用也请告知, 顺便我也可以得到经验

'抓取桌面代码 1 添加 Command1

Option Explicit
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Sub Command1_Click()
Dim H&
Me.AutoRedraw = True
Me.Hide
DoEvents
H = GetDC(0)
BitBlt Me.hdc, 0, 0, Screen.Width / 15, Screen.Height / 15, H, 0, 0, vbSrcCopy
ReleaseDC 0, H
SavePicture Me.Image, "c: t.bmp"
Me.Show
End Sub

'*****************************************************
'抓取桌面代码 2 添加 Command1 Picture1

'模拟按下Print Screen
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Form_Load()
Me.AutoRedraw = False
Picture1.AutoRedraw = True
End Sub

Private Sub Command1_Click()
Me.Move Screen.Width
DoEvents
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Picture1.Image, "C:TT.BMP"
Me.Move (Screen.Width - Me.Width) 2, (Screen.Height - Me.Height) 2
MsgBox "抓屏完成!"
End Sub

[安装][VB6.0][企业]如何安装VB6.0企业版

admin — Mon, 08 Feb 2010 06:14:04 +0000

希望有人发个完整教程双击，然后用你的眼睛看，脑子想，手动动，ok下完了以后双击setup.exe,下一步,输入序列号,1111111111全是1,然后一直点下一步,点完成,就好了会安装其它软件吗?一样的.这个增强版是自动安装的。
http://download.csdn.net/source/1681525晕死。。你是来搞笑的吧。。。和安装普通的应用软件是一样的。注册号全是1.不要安装msdn就可以了。否则安装不上

[出差][北京][春节]出差北京可能要春节前夕才能回来！！

admin — Mon, 08 Feb 2010 03:28:06 +0000

散尽所有可用分，不过只有23分：）沙发孤独兄！保重哈！你的那么多分都花哪了都被老马拿去包二*了老大，我来接分了祝一切顺利…来接分了呵呵！！！！！！jf ……
<
<
来北京找我哈一路顺风巫师大人，不会吧，搞到这么惨，不管怎么的，哥们也得分杯羹春节能回来就行嘛.只要不春节还在外面.接分晕，哪么穷啊，才23分…你的那么多分都花哪了哈哈，回来了，加100分。。。结贴！！！怎么不能加分呢？？！！

[turbo][basic][记得]turbo basic还有人记得嘛怎么让turbo basic界面显示正常

admin — Mon, 08 Feb 2010 00:03:07 +0000

我装的是Turbo Basic 1.1，在Dos中打开后显示的是一堆乱码，不知道该怎么让界面显示正常？古老啊。。。传奇阿。。虚拟机安装 Windows 98，在那上面运行试试看QBasic，还依稀记得小霸王时代的…
不过那时根本不懂Basic语言，嘿嘿太老了，现在居然还有人用，勉励一下吧
安装dos下的中文字体即可，或在UCDOS下运行，应当没有问题哪里有dos的中文字体呢？如何安装？我在网上找了半天也没有找到百度里搜吧,UCDOS 中文推荐你用Visual Basic 1.0 For DOS。很强大。很久很久以前用过。

[文件夹][修改][时间]求一个文件夹的修改时间

admin — Sun, 07 Feb 2010 18:10:12 +0000

怎样能求一个文件夹的修改时间,注意是文件夹哈.不是文件.VB6的环境Private Sub Command1_Click()
MsgBox ChkFolder("c:music")
End Sub

Public Function ChkFolder(FolNm$) As Date
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(FolNm)
ChkFolder = f.DateLastModified
End Function
可以用 API 完成：
FindFirstFile()
FindClose()
FileTimeToSystemTime()
<
哦.我先试试哈.谢谢楼上的几位.

晕没看到,最后一个答案.我就说filedatetime怎么没人提来着…..filedatetime 是正解

惭愧, 竟然连它我也搞忘了…..呵呵，老了嘛！记忆减退很正常，别往心里去谢谢大家了哈.

[提取][文档][数据]求助：用VB如何提取TXT文档数据

admin — Sun, 07 Feb 2010 04:14:23 +0000

如下：如何用VB实现提取DCHNO对应的数据？如果回答得好，追加给分，第一次发帖！！！！

XXXX
ABCDEF1

CHGR SCTYPE SDCCH SDCCHAC TN CBCH HSN HOP DCHNO
0 4 0 2 NO 48 ON 516
3 545
576
593
631
2 0 0 2 NO 47 OFF 550

XXXX
ABCDEF2

CHGR SCTYPE SDCCH SDCCHAC TN CBCH HSN HOP DCHNO
0 14 0 2 NO 33 ON 519
3 543
562
566
573
576
611
615
623
2 2 0 2 NO 39 OFF 620
3

XXXX
ABCDEF3

CHGR SCTYPE SDCCH SDCCHAC TN CBCH HSN HOP DCHNO
0 3 0 2 NO 24 ON 517
541
557
592
595
599
606
2 0 0 2 NO 13 OFF 545line input #文件号,字符串变量读表？
一行一行读吧，然后用split(input," ")之类的分割
把空内容去掉，就得到你的数组了……text文件是什么格式？
fixed，tabed/空格分的？用 split ，很简单的，你要取哪个数？谢谢大家都回答，我没说明我的目的，对不起；
是这样的，我要提取的是DCHNO对应下面的数字，其实用TXT打开是很规范的，不知道发上来怎么会变扭曲了。
比如：
DCHNO
541
557
592
592
592
谢谢大家我发现你贴出来的文本内容本身就是错位的啊。
如果是“规范”的，提取数据很容易。

可不可以提供个实际样本来看一下呢？
如果文件比较大，可以只提供一部分数据。
不难考到excel ，在数据拆分，用距离拆分就行<

[VB5.0][下载][地址]急！！求VB5.0下载地址

admin — Sun, 07 Feb 2010 04:14:19 +0000

我用6.0编的程序，打包要用6.0的运行库，觉得大了点，后得知用VB5.0编译的话就不需要带运行库了。所以哪位大大啊，给个VB5.0的安装程序啊，或者哪位上传到哪个网络硬盘里去让我下载下啊。谢谢各位大大了。！！！！！！
我在网上都搜了很久了，都没找到，郁闷死了。。。。。。。。。。。。。。。http://www.dhzx.net/Soft/Class57/Class58/200410/69.html下到了没有?!记得将那个序列号,若没问题,提醒结贴!谢谢哈

[shell][调用][文件]为什么用shell调用bat文件会报无效的过程调用或参数的错误请高手指点迷津！！！

admin — Sun, 07 Feb 2010 03:28:18 +0000

Private Sub cmdshangbao_Click()
Dim i, j, k As Integer
Dim int_file As Integer
Dim filename As String
Dim filepath As String
Dim fso1, fso2
Dim fil1, fil2
Dim RetVal
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set fil1 = fso1.CreateTextFile("c:ftp_file.txt", True)
fil1.writeline ("open 192.168.1.120")
fil1.writeline ("user audit01 123456 ")
Set fso2 = CreateObject("Scripting.FileSystemObject")
Set fil2 = fso2.CreateTextFile("c:ftp_file.bat", True)
fil2.writeline ("ftp -in < ftp_file.txt")
If Me.ListBox1.ListCount = 0 Then
MsgBox "没有文件，退出！"
Exit Sub
End If
int_file = Me.ListBox1.ListCount
For i = 0 To int_file - 1
filename = Trim(Me.ListBox1.List(i))
filepath = "put " & ActiveWorkbook.Path & "" & filename & " " & filename
fil1.writeline (filepath)
Next
fil1.writeline ("by ")

RetVal = Shell("c:ftp_file.bat", vbMaximizedFocus) '这里总是报无效的过程调用或参数，为啥fil1.Close
fil2.Close
MsgBox "文件上传完成！"
Kill "c:ftp_file.txt"
Kill "c:ftp_file.bat"
End Sub

我在dos下执行c:ftp_file.bat完全正常，为什么？改为
RetVal = Shell("cmd /c c:ftp_file.bat", vbNormalFocus)
试试C/前后各一个空格,vbNormalFocus无所谓.我改成了RetVal = Shell("cmd /c c:ftp_file.bat", vbNormalFocus)，
可以为什么出来的ftp命令成了：
d:>ftp -in 0
而bat中的文件内容为：ftp -in shell出来的结果多了个0，导致无法连接，为什么？
Shell("cmd /c c:ftp_file.bat")仅是调用cmd.EXE去执行c:ftp_file.bat文件,仅此而已. 去掉参数/c 试一下:
Shell("cmd c:ftp_file.bat")谢谢SYSSZ，已经找到原因
把这两句移到前面就没有问题了

fil1.Close
fil2.Close
RetVal = Shell("c:ftp_file.bat", vbMaximizedFocus)