Public Class loginform1
Dim strCon As String = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =8021.mdb"
Dim strCom1 As String = " SELECT * from loginname "
Private Sub OK_Click(ByVal sender As System.Objec ......
ĿǰÔÚ¹«Ë¾µÄlinux pcÉÏÓÐÒ»¸öSQLite server, ÎÒÏëÓÃÔÚͬ¸öÇø網µ×ϵÄwin pcÈ¥Á¬½ÓSQLite serverÓÃASP進ÐвÙ×÷, ÇëÎÊÓа취°ìµ½Âð? »¹ÊÇSQLite serverÎÞ·¨Ö§³ÖÍøÂçÁ¬½Ó....ÕÒÁËÒ»¸öÏÂÎç
剛²ÅÎÒ×Ô¼º試ÁËÏÂ, µ×ÏÂÊÇÎÒµÄASP code, mydbĿǰÊÇÎÒ×Ô¼ºÔÚ±¾機ÉϽ¨³ö來µÄsqliteÎļþ, Òâ ......
±ÈÈ磺
ÊÂÎï1 START
¡£¡£¡£¡£¡£¡£
ÊÂÎï2 START
²åÈëÒ»Õűí
ÊÂÎï2 END
¡£¡£¡£¡£¡£¡£
È»ºó³ÌÐò±Àµô£¬ÊÂÎï1»Ø¹ö£¬²»¹ýÓÖÏëÌá½»ÊÂÎï2µÄÊý¾Ý¡£
ÊÂÎï1 END
Óа취ʵ ......
Ï̴߳úÂë
Delphi(Pascal) code:
unit Unit2;
interface
uses
SysUtils,
Classes,IdGlobal;
type
TTestThread = class(TThread)
private
protected
procedure Execute; override;
public
end;
implementation
procedure TTestThread.Execute;
begin
FreeOnTerminate := True ;
......
Ö÷´°Ìåunit
Ö÷´°Ìå¶ÔÏó,
ͨ¹ýÖ÷´°Ìå´ò¿ªÒ»¸ö×Ó´°Ìå.
×Ó´°ÌåÔÚimplementÀïÑ»·ÒýÓÃÁËÖ÷´°Ìåunit,
×Ó´°Ìå×öÍêÊÂÇéºó¹Ø±Õ, Ïëµ÷ÓÃÖ÷´°ÌåµÄclose·½·¨,ÈÃËû¹Ø±Õ,¿ÉÊÇû·´Ó¦,Ö÷´°Ì幨²»µô,Ôõô°ìѽ?
µ«µ÷ÓÃËûµÄÆäËû·½·¨¾Í¿ÉÒÔÁË,Ϊʲôѽ?
ʲô´úÂ룿
unit OrderNewBookUnit;
interface
use ......
ÈçÌ⣬ÎÒÏë°ÑÏÂÃæÕâ¶ÎsqlÓï¾äдÔÚadoqueryÖУ¬µ«ÊÇ×ÜÊÇ´¦Àí²»ºÃµ¥ÒýºÅµÄÎÊÌâ
select b.Ô²ÄÁÏÃû³Æ,a.²ÄÁϺÅ,ʱ¼ä,Èë¿âÊýÁ¿ = sum(Èë¿âÊýÁ¿),³ö¿âÊýÁ¿ = sum(³ö¿âÊýÁ¿)
from
(
select '²ÄÁϺÅ' = case when isnull(ÔÁÏÈë¿â±í.²ÄÁϺÅ,'') = '' then ÔÁϳö¿â±í.²ÄÁϺŠelse ÔÁ ......