¼±¼±£¡£¡¹ØÓÚ²éѯACCESSÒ»¸ö×ֶεÄËùÓмǼÎÊÌâ
Çë½Ì¸ßÊÖ2¸öÎÊÌ⣺
1¡¢¹ØÓÚ²éѯACCESSÒ»¸ö×ֶεÄËùÓмǼÎÊÌ⣻ÔõôÏÂÃæ´úÂëÎÞ·¨´ò¿ªÊý¾Ý¿âѽ£¿
2¡¢ÏÂÃæµÄ´úÂë¿ÉÒÔ·ÃÎÊ¡°¹ú±êÂ롱×Ö¶ÎÖеÄËùÓмǼֵÂð£¿
¼±¼±£¡£¡£¡£¡£¡£¡£¡£¡
vbÓïÑÔ´úÂëÈçÏ£º
Sub addcomboxitem()
Dim Sql_connect As String
Dim Rst As New ADODB.Recordset
Dim s As String
Sql_connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TEST.mdb;Persist Security Info=False"
Rst.Open "select ¹ú±êÂë from WJSZ , Sql_connect, adOpenForwardOnly, adLockReadOnly"
On Error Resume Next
While Not Rst.EOF
k = k + 1
s = s + Rst.Fields("¹ú±êÂë").value
Rst.MoveNext
Wend
Rst.Close '¶ÁÍêÊý¾Ýºó¹Ø±Õ¼Ç¼¼¯
msgbox s
End Sub
¸ß£¡£¡£¡£¡£¡£¡
ˬһµã£¬½áÌù¸ø·Ö¡£
Ïà¹ØÎÊ´ð£º
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)
'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......
_RecordsetPtr CMyAdo::SelectRecord(string &where, string &tablename,string &field, int way )
{
int ret = 0;
_RecordsetPtr pset;
CString sql;
& ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÏÖÐèÒª½«access 2007ÖеÄ42¸ö±í½øÐÐfull join¡£ÓÉÓÚaccessÖв»ÄÜÖ´ÐÐfull join£¬Èç¹û²ÉÓÃleft join union right joinµÄ·½Ê½£¬ÐèÒª¶ÔÕâ42¸ö±íÒ»Ò»½øÐУ¬½«²úÉú´óÁ¿µÄ²»±ØÒªµÄÖмäÊý¾Ý£¬Ôö´óÁËÊý¾Ý¿âµÄ¿ ......
C# code:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Data;
using System.Data.OleDb;
namespace DAL
{
public class DBHelp
{
......