¡¡

Ä«Å×°í¸®    ³×Æ®¿öÅ©,¸µÅ©,Odbc, ¿ø°ÝDBÁ¢¼Ó Á¶È¸:3228
 Á¦¸ñ   ADO¸¦ ÀÌ¿ëÇØ¼­ SQLÀ» Çڵ鸵ÇÏ´Â °Í

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