动态sql语句基本语法
1 :普通SQL语句可以用Exec执行
eg: Select * from tableName
Exec(’select * from tableName’)
Exec sp_executesql N’select * from tableName’ — 请注意字符串前一定要加N
2:字段名，表名，数据库名之类作为变量时，必须用动态SQL
eg:
declare @fname varchar(20)
set @fname = ‘FiledName’
Select @fname from tableName — 错误,不会提示错误，但结果为固定值FiledName,并非所要。
Exec(’select ‘ + @fname + ‘ from tableName’) — 请注意 加号前后的 单引号的边上加空格
当然将字符串改成变量的形式也可
declare @fname varchar(20)
set @fname = ‘FiledName’ –设置字段名 [...]
(转)能上QQ但不能上网问题精解
一、感染了病毒所致
这种情况往往表现在打开IE时，在IE界面的左下框里提示：正在打开网页，但老半天没响应。在任务管理器里查看进程，（进入方法，把鼠标放在任务栏上，按右键―任务管理器―进程）看看CPU的占用率如何，如果是100%，可以肯定，是感染了病毒，这时你想运行其他程序简直就是受罪。这就要查查是哪个进程贪婪地占用了CPU资源。
找到后，最好把名称记录下来，然后点击结束，如果不能结束，则要启动到安全模式下把该东东删除，还要进入注册表里，（方法：开始―运行，输入regedit）在注册表对话框里，点编辑―查找，输入那个程序名，找到后，点鼠标右键删除，然后再进行几次的搜索，往往能彻底删除干净。
有很多的病毒，杀毒软件无能为力时，唯一的方法就是手动删除。
二、与设置代理服务器有关
有些筒子，出于某些方面考虑，在浏览器里设置了代理服务器（控制面板–Internet选项―连接―局域网设置―为LAN使用代理服务器），设置代理服务器是不影响QQ联网的，因为QQ用的是4000端口，而访问互联网使用的是80或8080端口。这就是很多的筒子们不明白为什么QQ能上，而网页不能打开的原因。而代理服务器一般不是很稳定，有时侯能上，有时候不能上。如果有这样设置的，请把代理取消就可以了。
三、DNS服务器解释出错
所谓DNS，即域名服务器（Domain Name Server）,它把域名转换成计算机能够识别的IP地址，如深圳之窗（www.sz.net.cn）对应的IP地址是219.133.46.54，深圳热线（www.szonline.net）对应的IP地址是202.96.154.6。如果DNS服务器出错，则无法进行域名解释，自然不能上网了。 如果是这种情况，有时候是网络服务接入商即ISP的问题，可打电话咨询ISP；有时候则是路由器或网卡的问题，无法与ISP的DNS服务连接。
这种情况的话，可把路由器关一会再开，或者重新设置路由器。或者是网卡无法自动搜寻到DNS的服务器地址，可以尝试用指定的DNS服务器地址。在网络的属性里进行，（控制面板―网络和拔号连接―本地连接―右键属性―TCP/IP协议―属性―使用下面的DNS服务器地址）。不同的ISP有不同的DNS地址，如电信常用的是202.96.134.133(主用) 202.96.128.68（备用）。
更新网卡的驱动程序或更换网卡也不失为一个思路。
四、系统文件丢失导致IE不能正常启动
这种现象颇为常见，由于：
1、系统的不稳定 表现为死机频繁、经常莫名重启、非法关机造成系统文件丢失；
2、软硬件的冲突 常表现为安装了某些程序引起网卡驱动的冲突或与IE的冲突。自从INTEL推出超线程CPU后，有一个突出的问题是XP SP1下的IE6与超线程产生冲突；
3、病毒的侵扰 导致系统文件损坏或丢失。
如果是第一种情况，可尝试修复系统，2K或XP系统下，放入原安装光盘（注意：一定要原安装光盘），在开始―运行里输入sfc /scanow，按回车。98的系统也可以用sfc命令进行检查。
如果是第二种情况，可以把最近安装的硬件或程序卸载，2K或XP的系统可以在机器启动后，长按F8，进入启动菜单，选择“最后一次正确的配置”，若是XP系统，还可以利用系统的还原功能，一般能很快解决问题。
如果是XP的系统因超线程CPU的原因，可以在BIOS里禁用超线程，或升级到SP2。（当然，XP如何升级SP2涉及到很多知识及要注意的问题，在此限于篇幅不再详述）。这种情况下，QQ里自带的TT浏览器一般能正常浏览，可改用一试。
如果是第三种情况，则要对系统盘进行全面的查杀病毒。
还有一种现象也需特别留意：就是能打开网站的首页，但不能打开二级链接，如果是这样，处理的方法是重新注册如下的DLL文件：
在开始―运行里输入： regsvr32 Shdocvw.dll regsvr32 Shell32.dll （注意这个命令，先不用输） regsvr32 Oleaut32.dll regsvr32 Actxprxy.dll regsvr32 Mshtml.dll regsvr32 Urlmon.dll regsvr32 Msjava.dll regsvr32 Browseui.dll
注意：每输入一条，按回车。第二个命令可以先不用输，输完这些命令后重新启动windows，如果发现无效，再重新输入一遍，这次输入第二个命令。还有，如果是98的系统，到微软的网站上下载这个文件也许更简单，这个文件的下载地址是： http://download.microsoft.com/download/msn…us/mcrepair.exe
五、IE损坏
以上方法若果都不奏效，有可能是IE的内核损坏，虽经系统修复，亦无法弥补，那么重装IE就是最好的方法了。
如果是98或2K系统，IE的版本若是5.0，建议升级到6.0。
98的系统如果已经升级安装了6.0，那么在控制面板里点击添加/删除程序，将会弹出一个修复对话框，选择默认的修复，重新启动即可。
如果是2K+IE6.0或XP（自带的IE就是6.0的）的系统，重新IE有点麻烦，有两种方法： 1、打开注册表，展开HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed [...]
API在VB中应用之技巧集锦 API函数在VB中得到了充分的运用，同时也让无数VB爱好者沉溺于其中。以下是笔者几年来收集整理的几十个API函数在VB中应用的实例，现在写出来与大伙分享，希望能对大伙有所帮助。 1、如何让窗体总在最前面？ *API函数声明 Declare Function SetWindowPos Lib “user32″ ( ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long 注释：常量声明 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOMOVE = &H2 [...]
(转)处理过程时的鼠标显示
为让你的程序更加专业一点，我们往往需要在程序处理过程时的鼠标形状显示为“沙漏”状态。我们一般的方法是在子程序的开始及结尾编程来改变鼠标形状，这样十分烦琐且容易忘记。我们还可以以下面的方法来实现这一目标： 1、创建一个新类，命名为：CHourGlass； 2、在此类中加入以下代码： Private Sub Class_Initialize() Screen.MousePointer = vbHourglass End Sub Private Sub Class_Terminate() Screen.MousePointer = vbDefault End Sub 3、在子程序的开始加入下面代码： Dim MyHourGlass As CHourGlass Set MyHourGlass = New CHourGlass
(原)关于DateReport没有Orientation属性的解决方法
—————————-
编译时出现的问题：
变量没有定义
未找到方法或数据成员
编译器错误
Variable Not Defined
Method or Data member not found
Compiler Error
解决方法：
安装VB6 SP6 或 VS6 SP6(如果已经安装但出现了这个问题，请再重新安装)
VS6 SP6 下载地址：
Visual Studio 6.0 Service Pack 6
Service Pack 6 for Visual Basic 6.0, Visual C++ 6.0 with Visual Source Safe 6.0d (Multi-Part Download)
http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=a8494edb-2e89-4676-a16a-5c5477cb9713
VB6 SP6 下载地址：
Service Pack 6 for Visual Basic 6.0: Run-Time Redistribution Pack (vbrun60sp6.exe)
http://www.microsoft.com/downloads/details.aspx?familyid=7B9BA261-7A9C-43E7-9117-F673077FFB3C&displaylang=en
如果要下载其它语言请选择 ”Change Language:”
(原)典p音
连续播放列表
http://mumayi1.999kb.com/pic/2006-08-22/tyzfior3eadv9c009ix3.mp3
———————
http://www.ytzxw.com/qyy/红河谷.mp3
http://www.ytzxw.com/qyy/小美人鱼.mp3
http://www.ytzxw.com/qyy/秋日私.mp3
http://www.ytzxw.com/qyy/格达之星.mp3
http://www.ytzxw.com/qyy/黄昏之恋.mp3
http://www.ytzxw.com/qyy/黄金大地.mp3
http://www.ytzxw.com/qyy/寄语飞鸟.mp3
http://www.ytzxw.com/qyy/黎明.mp3
http://www.ytzxw.com/qyy/木星.mp3
http://www.ytzxw.com/qyy/平安夜.mp3
http://www.ytzxw.com/qyy/轻音乐荟萃.mp3
http://www.ytzxw.com/qyy/神秘花园.mp3
http://www.ytzxw.com/qyy/我心永恒.mp3
http://www.ytzxw.com/qyy/无垠水平线.mp3
http://www.ytzxw.com/qyy/夕阳红.mp3
http://www.ytzxw.com/qyy/牺牲.mp3
http://www.ytzxw.com/qyy/星云.mp3
http://www.ytzxw.com/qyy/一瞬间.MP3
http://www.ytzxw.com/qyy/月光曲.mp3
——————————————————————
公告栏
———————————
留言板
———————————
看广告玩游戏送QQ币
这个例子在窗体上凿了一个洞
—————————-
Option ExplicitPrivate Declare Function CombineRgn Lib “gdi32″ (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As LongPrivate Declare Function CreateRectRgn Lib “gdi32″ (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function SetWindowRgn Lib “user32″ (ByVal hWnd [...]
使picturebox的底色编程透明的
—————————————-
用控件集合’Microsoft Forms2.0 Object Library
你必须在组件面板中添加此项，然后用新的PictureBox控件
它和默认的PictureBox没有什么区别，只是属性中多出了BackStyle属性，我们利用了这个属性，将控件设为背景透明0-fmBackStyleTransparent，这样控件的背景就能和窗体的背景保持一致了。
——————————————————————
公告栏
———————————
留言板
———————————
看广告玩游戏送QQ币
遍历菜单
————————-
Option ExplicitDim conts As Control
Private Sub Command1_Click()For Each conts In Me.Controls If LCase(TypeName(conts)) = “menu” Then Debug.Print conts.Caption Debug.Print conts.Name End IfNextEnd Sub
Private Sub Form_Load()
End Sub
MSHFlexGrid内容导出到Excel方法2(推荐)
Public Function ExportToExcel(RSrecord As ADODB.Recordset, Titles_Name)
‘==================================================
‘参数说明
‘RSrecord ：记录集
‘titles_name 表头名称
‘蔡健 2006-01-02修改
‘==================================================
On Error GoTo ERRCL
Dim Rs_Data As New ADODB.Recordset
Dim Irowcount As Long
Dim Icolcount As Long
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlQuery As Excel.QueryTable
‘ 假设Rs_Data 是你的记录集
With RSrecord
If .RecordCount < 1 Then
MsgBox ”没有可导出的记录!”, vbInformation + vbOKOnly, ”提示”
Exit Function
End If
‘记录总数
Irowcount = .RecordCount
‘字段总数
Icolcount = .Fields.Count
End With
Set xlApp = CreateObject(”Excel.Application”)
Set xlBook = Nothing
Set xlSheet = Nothing
Set xlBook = xlApp.Workbooks().Add
Set xlSheet = xlBook.Worksheets(”sheet1″)
xlApp.Visible = True
‘添加查询语句，导入EXCEL数据
Set xlQuery = xlSheet.QueryTables.Add(RSrecord, xlSheet.Range(”a2″))
xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, 8)).Merge
xlSheet.Cells(1, 1).HorizontalAlignment = xlCenter
xlSheet.Cells(1, 1) = Titles_Name
With xlQuery
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
End With
xlQuery.FieldNames = True ’显示字段名
xlQuery.Refresh
With xlSheet
.Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Name = ”宋体”
‘设标题为黑体字
.Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Bold = True
‘标题字体加粗
.Range(.Cells(2, 1), .Cells(Irowcount + 2, Icolcount)).Borders.LineStyle = xlContinuous
‘设表格边框样式
‘ .PageSetup.PaperSize = xlPaperA4 ’
‘ .PageSetup.PrintGridlines = True
End With
xlApp.Application.Visible = True
Set xlApp = Nothing ’”交还控制给Excel
Set xlBook = Nothing
Set xlSheet = Nothing
Set Rs_Data = Nothing
Exit Function
ERRCL: MsgBox ”无有效数据或 Excel 2000 未安装！”, vbInformation, ”错误”
End Function
——————————————————————
公告栏
———————————
留言板
———————————
看广告玩游戏送QQ币
