ADO¸¦ ÀÌ¿ëÇØ¼ SQLÀ» Çڵ鸵ÇÏ´Â °ÍÀº º°·Î ¾î·Á¿î ÀÏÀº ¾Æ´Õ´Ï´Ù. ´ÜÁö RDOº¸´Ù ¼Óµµ°¡ Á¶±Ý ¶³¾îÁö´Â °ÍÀ» Á¦¿ÜÇϸé Á¶±Ý´õ ÆíÇÑ°Ô »ç½ÇÀÔ´Ï´Ù.
ÀÔ·Â, ¼öÁ¤, »èÁ¦ ÀÌ·± ¼ø¼´ë·Î ¼³¸í ÇϰڽÀ´Ï´Ù.
¸ÕÀú ÀÔ·ÂÀÔ´Ï´Ù. ====================================================================== Set ado = New ADODB.Connection "¸ÕÀú ¿¬°á°´Ã¼¸¦ ¸¸µé¾î ÁÝ´Ï´Ù.
ado.Open "PROVIDER=MSDASQL;driver={SQL Server};server=parkping;uid=sa;pwd=;database=business; " "À§´Â ¿¬°áÇÑ ´ë»óÀ» ÁöÁ¤ÇÕ´Ï´Ù. "ODBC¿¬°áÀº ÇØ ³õÀ¸¼ÌÁÒ? ¼¹ö¸íÀº parkpingÀÔ´Ï´Ù. ±×¸®°í À§¸¦ º¸½Ã¸é ¾Æ½Ã°ÚÁö ¸¸ Á¢±ÙÀº SA·Î ±âº»ÀÌ´Ï Àû¿ëÇϽǶ§ ²À ¹Ù²Ù¼¼¿ä.
sql = "insert into order_sheet (order_num,reg_date,aname,off_name,order_Ãå,ending,send,remain,bigo) " sql = sql & "values("" & order_num & "","" & Format(DTPicker1 (0), "yyyy-MM-dd") & ""," sql = sql & """ & Combo6(0).Text & "","" & Combo4(0).Text & "","" & Text1(3).Text & ""," sql = sql & """ & CHK & "", 0, 0,"" & Text1(4).Text & "")" "SQL¹®Àº ´Ù¸¦°Ô ¾ø½À´Ï´Ù.
ado.Execute sql "ÀÛ¼ºÇÑ SQLÀ» ½ÇÇàÇÕ´Ï´Ù.
ado.Close Set ado = Nothing "ÀÌÁ¦ ¿¬°á °´Ã¼¸¦ ´Ý°í, ¸Þ¸ð¸®¿¡¼ Áö¿ó´Ï´Ù. ======================================================================
Copyright By AccessVision
|