VB ÓëSQL2000²éѯÎÊÌ⣬Çë½Ìǰ±²
ÎÒ½¨Á˸öÌå»ý±í£¬ÏëÒªÊäÈë¸ß¶È²é³öÌå»ý
Àý£ºl=1.234 l1=1.23 l2=4 l3=1.2
v=v1+v2+v3
µÚÒ»¸öÎÊÌ⣺
ÎÒSQLÀïÃæ½¨±íʱLµÄÊý¾ÝÀàÐÍÊÇfloat,ÕâÑù²éѯʱ³ö´í¡°l¡±ÎÞЧµÄÁÐÃû£¬ÇëÎÊÏÂÒªÔõô¸Ä¸Ä
µÚ¶þ¸öÎÊÌ⣺
ÎÒÕâÑùдRecordset³ö´íÖ»ÄÜÏÔʾµÚÒ»¸öÊý¾Ý£¬ÒªÔõôÍêÉÆÒ»ÏÂ
»¹ÓУ¬ÄÄλǰ±²ÓÐʲôºÃµÄ½¨ÒéÖ¸½Ìһϣ¬Ð¡×ÓÏÈллÁË£¡£¡
Dim p As Double, l As Double, l1 As Double, l2 As Double, l3 As Double, l0 As Double
Dim v As Double, v1 As Double, v2 As Double, vcf As Double, m As Double, G As Double
Dim str As String
l = Val(Text1.Text)
l0 = Int(l * 10) / 10
If (l - l0) >= 0.05 Then
l3 = l0 + 0.1
Else: l3 = l0
End If
l1 = Int(l * 100) / 100
l2 = Int(1000 * (l - l1))
Set myConn = New adodb.Connection
myConn.ConnectionString = "provider=sqloledb.1;persist security info=false;user id=sa;password=sa;initial catalog=GRB;data source=(local)"
myConn.Open
Set rs = New adodb.Recordset
rs.Open "select v from [301-11] where l like l1 ", myConn, adOpenStatic, adLockOptimistic
v1 = rs.Fields("v").Value
'Print v1
Set rs1 = New adodb.Recordset
rs1.Open "select v from [301-12] where l like l3", myConn, adOpenStatic, adLockOptimistic
v2 = rs1.Fields("v").Value
'Print v2 <
Ïà¹ØÎÊ´ð£º
ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£
ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î
date(Ö÷) outid(Ö÷) inid(Ö÷) num amt
2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
´ÓÊý¾Ý¿âÖвéѯһÕűíµÄÊý¾Ý
select ²¿ÃÅ,ÐÕÃû from tb
ÈçºÎ²ÅÄÜÉú³ÉÏÂÃæµÄxml¸ñʽ
XML code:
<folder state="unchecked" label="È«²¿">
¡¡¡¡ <folder state="unchecked&qu ......
protected void btnLogin_Click(object sender, EventArgs e)
{
SqlConnection conn = new SqlConnection("Server = (local);user id = sa;pwd = 1;database = Login");
&nb ......
СµÜ£¬×î½üҪתÐÐÈ¥×öoracle¿ª·¢ÁË£¬ÓÉÓÚ´óѧ±Ïҵʱ£¬×ßÁ˸öÍä·£¬ÏÖÔÚºÜСÐÄ£¬ÎÊÏ£¬×öPL/SQLÓÐûÓÐǰ;£¿£¿£¿
µ±È»ÎÒ˵µÄÕâ¸öǰ;ÊÇÖ¸ ÒÔºóÒªÌø²Û£¬Êг¡¶ÔÕâÑùµÄÈ˲ŵÄÐèÇóÁ¿´ó²»´ó£¿£¿
3q ÄÇ¿´À´»¹Ö»ÄÜÏȽӴ ......