Çë½ÌÓйØvbµ¼³ötxtµÄ¿Õ¸ñÎÊÌâ
ÎÒдÁ˸öÄ£¿éº¯Êý£¬ÓÃÀ´°ÑsqlÊý¾Ý¿âµ¼³ö³ÉtxtÎļþ£¬³öÀ´Ð§¹ûÊÇÿһÁÐÖ®¼ä¶¼»áÓÐÒ»¸ö¿Õ¸ñ¼ä¸ô£¬ÀýÈç:
0052135199011 ÕÔÑà÷
0052423253011 ÕÔͬ»Î
0065310602011 Îâΰͥ
0063829765011 ³ÂÎÄÀû
ÎÒ²»ÏëÒªÕâ¸ö¿Õ¸ñÈ磺
0052135199011ÕÔÑà÷
0052423253011ÕÔͬ»Î
0065310602011Îâΰͥ
0063829765011³ÂÎÄÀû
ÒÔÏÂÊǺ¯ÊýÄÚÈÝ£¬Çë¸÷λ´ó´óÖ¸½Ì£¬Ó¦¸ÃÔõô¸Ä²ÅÄÜ´ïµ½ÒªÇó£¬Ð»Ð»¡£
Public Function TabintoTxt(objConn As Object, TableName As String, Optional TextFileName As String)
Dim rs As New ADODB.Recordset
Set rs = Ne
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......