vb.net SQLÊý¾Ý¿â²Ù×÷£¨¶ÁÈ¡¡¢Ð޸ġ¢É¾³ý£©
Dim rs As ADODB.Recordset
Dim sqlstr As String
'²éѯ
sqlstr = "select * from ±íÃû where ×Ö¶ÎÃû = '" & ²éѯµÄÄÚÈÝ & "'"
rs = VScn.Execute("" & SqlStr & "")
If Not rs.EOF Then
TextBox1.Text = rs("×Ö¶ÎÃû").Value.ToString
End If
'ÐÞ¸Ä
sqlstr = "update ±íÃû set ×Ö¶ÎÃû= '" & ÒªÐ޸ĵÄÄÚÈÝ & "' where ×Ö¶ÎÃû= '" & ²éѯµÄÄÚÈÝ & "'"
VScn.Execute(sqlstr)
'ɾ³ý
sqlstr = "delete from ±íÃû where ×Ö¶ÎÃû= '" & ²éѯµÄÄÚÈÝ & "'"
VScn.Execute(sqlstr)
Ïà¹ØÎĵµ£º
ÔÚÍøÉÏÕÒµÄÒ»¸ö·½·¨£¬¾ÍÒòΪһ¸öhostNameûÅäÖöԣ¬º¦µÃÎÒ»¨ÁË3¸öСʱ²Å¸ã¶¨
²âÊÔ»·¾³:
oracle·þÎñÆ÷: windowsXPϵͳ£¬ oracle9.2.0.7£¬Ö÷»úÃû£ºoracleHost
sqlserver·þÎñÆ÷:windows2003 r2ϵͳ£¬sqlserver 2000,Ö÷»úÃû£ºsqlHost
Ä¿µÄ£ºÔÚOracleÊý¾ÝÖзÃÎÊsqlserverÖеÄNorthwindÊý¾Ý¿â
1¡¢ÔÚ°²×°ORACLE9iʱ, Ò ......
±È½Ï³£ÓõÄSQLÓï¾äÓï·¨(Oracle)
Ò».Êý¾Ý¿ØÖÆÓï¾ä (DML) ²¿·Ö
1.INSERT (ÍùÊý¾Ý±íÀï²åÈë¼Ç¼µÄÓï¾ä)
INSERT INTO ±íÃû(×Ö¶ÎÃû1, ×Ö¶ÎÃû2, ……) VALUES ( Öµ1, Öµ2, ……);
INSERT INTO ±íÃû(×Ö¶ÎÃû1, ×Ö¶ÎÃû2, ……) SELECT ×Ö¶ÎÃû1, ×Ö¶ÎÃû2, …&he ......
WindowsÖеÄ×ÀÃæͼ±êµÄÅÅÁз½Ê½ÊÇ·ñÈÃÄã¸Ðµ½Ñá¾ë¶øÏë°´ÕÕ×Ô¼ºµÄÏë·¨ÅÅÁÐͼ±ê¡£ÊÇ·ñÏë¸Ä±ä×ÀÃæͼ±êÎÄ×ֵı³¾°¶ø²»
ʹÔÚͼ±êÎÄ×ÖϳöÏÖÒ»¸ö¸öÄÑ¿´µÄÉ«¿é¡£ÕâÀïÎÒÒª½éÉÜÈçºÎͨ¹ýVBÀ´¶Ô×ÀÃæµÄͼ±ê½øÐг¹µ×µÄ¸Ä±ä¡£
ÆäʵÔÚWindowsϵÄ×ÀÃæÒÔ¼°ÈÎÎñÀ¸µÈ¶¼ÊÇ´°¿Ú¶ÔÏó£¬ÎÒÃÇ¿ÉÒÔÀûÓÃWindows APIº¯ÊýFindWindow ......
RGBº¯Êý£ºRGBÊÇͨ¹ýÖ¸¶¨ºìÂÌÀ¶²»Í¬µÄ·ÖÁ¿ÖµµÃµ½²»Í¬µÄÑÕÉ«¡£
·¸ñʽ£ºRGB£¨ºìÉ«Öµ£¬ÂÌÉ«Öµ£¬À¶É«Öµ£©
·È¡Öµ·¶Î§Îª0--255£¬·Ö±ð´ú±íËùÒªÑÕÉ«Öеĺ졢ÂÌ¡¢À¶·ÖÁ¿µÄ´óС¡£
QBColorº¯Êý£ºÓÃÒ»¸öÕûÊýÖµ¶ÔÓ¦RGBµÄ³£ÓÃÑÕÉ«Öµ
·¸ñʽQBColor£¨ÑÕÉ«Öµ£©
·ÑÕÉ«ÖµÊÇÒ»¸öÕûÊý£¬È¡Öµ·¶Î§0--15´ú±í16ÖÖ» ......
1.ÓïÑÔ/»·¾³»ù´¡
--ÏîÄ¿µÄ×é³É
--ÓïÑÔ»ù´¡
----±äÁ¿µÄ×÷ÓÃÓòºÍÉú´æÆÚ
----»ù±¾Óï¾ä(forÑ»·,¸³ÖµÓï¾älet(ÆÕͨ±äÁ¿¸³Öµ),set(¶ÔÏóµÄ¸³Öµ,Ö»ÓÃset),·ÖÖ§Óï¾ä)
----¾²Ì¬Êý×éºÍ¶¯Ì¬Êý×é(Êý×éµÄÉùÃ÷,ÉÏϽçÈ·¶¨,¶¯Ì¬Êý×éµÄʹÓÃ,¶¨ÒåеÄÖ®ºó,Ôõô±£ÁôÒÔÇ°µÄÊý¾Ý)
----Ö÷ÒªµÄϵͳº¯ÊýºÍ¹ý³Ì(By ......