vbÀïµÄÎÊÌâ
Ìí¼ÓµÄʱºòÀÏÊdzöÏÖ¡°ÊéºÅ²»ÄÜΪ¿Õ¡±µÄÌáʾ£¬²»¹ÜÊéºÅ¿Õ²»¿Õ£»´úÂëÈçÏ£º
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As New ADODB.Command
Public connstring As String
Private Sub cmdadd_Click()
Dim rsvalid As ADODB.Recordset
'Dim strsql$, strreaderID$, strName$, strsex$, strad$, strtel$
Dim bookmk
strÊéºÅ = Replace(Trim(txtÊéºÅ.Text), "'", "")
strÊéÃû = Replace(Trim(txtÊéÃû.Text), "'", "")
str×÷Õß = Replace(Trim(Txt×÷Õß.Text), "'", "")
str³ö°æÉç = Replace(Trim(txt³ö°æÉç.Text), "'", "")
strÀà±ð = Replace(Trim(TxtÀà±ð.Text), "'", "")
str½è³ö·ñ = Replace(Trim(txt½è³ö·ñ.Text), "'", "")
strµ¥¼Û = Replace(Trim(txtµ¥¼Û.Text), "'", "")
If strbookID = "" Then
MsgBox "ÊéºÅ²»ÄÜΪ¿Õ", , "ÊäÈë´íÎó"
txtÊéºÅ.SetFocus
Exit Sub
ElseIf strÊéÃû = "" Then
MsgBox "ÊéÃû²»ÄÜΪ¿Õ", , "ÊäÈë´íÎó"
txtÊéÃû.SetFocus
Exit Sub
End If
Set rsvalid = New ADODB.Recordset
strsql = "select * from ͼÊé where bookid='" & strbookID & "';"
rsvalid.Open strsql, Conn, 1, 1
If Not rsvalid.EOF Th
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡£¿ÓÐÐÅÏ¢µÄÅóÓѸæËßÏ ллÁË
ÎÒҲûÕÒµ½
Èç¹ûÄãÓÐ FOR ÆäËü µÄÎĵµ£¬Ò²¿ÉÒԲο¼°É£¡
¡®µÀÀí¡¯ÊÇÒ»Öµģ¬Ö»ÊÇ¡°±í´ï·½Ê½¡±²»Í¬¶øÒÑ¡£
mark
pls learn from ba ......
Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ
vb.net
VC++
ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......