Access\u6570\u636e\u5e93\u662f\u5fae\u8f6f\u516c\u53f8\u5f00\u53d1\u7684\u4e00\u6b3e\u5e38\u7528\u7684\u5173\u7cfb\u578b\u6570\u636e\u5e93\u7ba1\u7406\u7cfb\u7edf\u3002\u5b83\u53ef\u4ee5\u65b9\u4fbf\u5730\u521b\u5efa\u548c\u7ba1\u7406\u6570\u636e\u5e93\uff0c\u5e76\u4e14\u53ef\u4ee5\u5feb\u901f\u67e5\u8be2\u548c\u66f4\u65b0\u6570\u636e\u3002\u5728\u4f7f\u7528Access\u6570\u636e\u5e93\u65f6\uff0c\u6211\u4eec\u7ecf\u5e38\u9700\u8981\u67e5\u627e\u8868\u4e2d\u7684\u6240\u6709\u5b57\u6bb5\uff0c\u4ee5\u4fbf\u66f4\u597d\u5730\u4e86\u89e3\u6570\u636e\u7ed3\u6784\u548c\u6570\u636e\u5b58\u50a8\u65b9\u5f0f\u3002\u672c\u6587\u5c06\u4ecb\u7ecd\u5982\u4f55\u5feb\u901f\u67e5\u627eAccess\u6570\u636e\u5e93\u4e2d\u7684\u6240\u6709\u5b57\u6bb5\u3002<\/p>\n
\u4e4b\u4e00\u6b65\uff1a\u6253\u5f00Access\u6570\u636e\u5e93<\/p>\n
\u6211\u4eec\u9700\u8981\u6253\u5f00Access\u6570\u636e\u5e93\u8f6f\u4ef6\u3002\u5728\u6253\u5f00\u540e\uff0c\u6211\u4eec\u53ef\u4ee5\u770b\u5230\u4e3b\u754c\u9762\u4e0a\u7684\u5404\u79cd\u9009\u9879\uff0c\u5305\u62ec\u521b\u5efa\u65b0\u6570\u636e\u5e93\u3001\u6253\u5f00\u5df2\u6709\u6570\u636e\u5e93\u3001\u6d4f\u89c8\u6240\u6709\u8868\u7b49\u9009\u9879\u3002<\/p>\n
\u7b2c\u4e8c\u6b65\uff1a\u9009\u62e9\u8981\u67e5\u627e\u7684\u8868<\/p>\n
\u5728\u4e3b\u754c\u9762\u4e0a\u9009\u62e9\u201c\u6d4f\u89c8\u6240\u6709\u8868\u201d\u9009\u9879\uff0c\u53ef\u4ee5\u770b\u5230\u6240\u6709\u7684\u8868\u683c\u3002\u5728\u8fd9\u91cc\uff0c\u6211\u4eec\u9700\u8981\u9009\u62e9\u8981\u67e5\u627e\u7684\u8868\u683c\u3002\u9009\u62e9\u8868\u683c\u540e\uff0c\u5c06\u5176\u6253\u5f00\u5e76\u8fdb\u5165\u8868\u683c\u7f16\u8f91\u6a21\u5f0f\u3002<\/p>\n
\u7b2c\u4e09\u6b65\uff1a\u67e5\u627e\u8868\u5b57\u6bb5<\/p>\n
\u5728\u6253\u5f00\u7684\u8868\u683c\u7f16\u8f91\u6a21\u5f0f\u4e0b\uff0c\u6211\u4eec\u53ef\u4ee5\u67e5\u770b\u548c\u66f4\u6539\u8be5\u8868\u683c\u7684\u5b57\u6bb5\u548c\u6570\u636e\u3002\u4e3a\u4e86\u67e5\u627e\u6240\u6709\u7684\u5b57\u6bb5\uff0c\u6211\u4eec\u9700\u8981\u9009\u62e9\u201c\u8bbe\u8ba1\u89c6\u56fe\u201d\u9009\u9879\u5361\u3002<\/p>\n
\u5728\u8bbe\u8ba1\u89c6\u56fe\u4e2d\uff0c\u6211\u4eec\u53ef\u4ee5\u770b\u5230\u6240\u6709\u7684\u5b57\u6bb5\u540d\u79f0\u548c\u6570\u636e\u7c7b\u578b\u3002\u5982\u679c\u4f60\u60f3\u4fee\u6539\u5b57\u6bb5\u540d\u79f0\u6216\u6570\u636e\u7c7b\u578b\uff0c\u53ef\u4ee5\u76f4\u63a5\u5728\u8fd9\u91cc\u8fdb\u884c\u66f4\u6539\u3002\u4e3a\u4e86\u7ee7\u7eed\u67e5\u627e\uff0c\u4f60\u9700\u8981\u9009\u62e9\u201c\u89c6\u56fe\u201d\u9009\u9879\u5361\uff0c\u5e76\u9009\u62e9\u201c\u6811\u5f62\u7ed3\u6784\u201d\u89c6\u56fe\u3002<\/p>\n
\u5728\u6811\u5f62\u7ed3\u6784\u4e2d\uff0c\u6211\u4eec\u53ef\u4ee5\u770b\u5230\u8868\u6587\u6863\u4e2d\u6240\u6709\u7684\u5b57\u6bb5\u7684\u8be6\u7ec6\u4fe1\u606f\uff0c\u5305\u62ec\u5b57\u6bb5\u540d\u79f0\u3001\u6570\u636e\u7c7b\u578b\u3001\u957f\u5ea6\u3001\u662f\u5426\u5fc5\u586b\u7b49\u3002\u6211\u4eec\u53ef\u4ee5\u9009\u62e9\u6bcf\u4e2a\u5b57\u6bb5\uff0c\u5e76\u67e5\u770b\u5b83\u7684\u5c5e\u6027\u3002<\/p>\n
\u7b2c\u56db\u6b65\uff1a\u4f7f\u7528\u5feb\u6377\u952e\u8fdb\u884c\u5feb\u901f\u67e5\u627e<\/p>\n
\u4f7f\u7528Access\u6570\u636e\u5e93\u65f6\uff0c\u8fd8\u6709\u4e00\u4e9b\u5e38\u7528\u7684\u5feb\u6377\u952e\u53ef\u4ee5\u5e2e\u52a9\u4f60\u66f4\u5feb\u5730\u67e5\u627e\u8868\u683c\u4e2d\u7684\u6240\u6709\u5b57\u6bb5\u3002\u5176\u4e2d\u6700\u5e38\u7528\u7684\u5feb\u6377\u952e\u5305\u62ec\uff1a<\/p>\n
Ctrl+F\uff1a\u6253\u5f00\u67e5\u627e\u5bf9\u8bdd\u6846\uff0c\u53ef\u4ee5\u5728\u5f53\u524d\u6216\u6574\u4e2a\u6587\u6863\u4e2d\u67e5\u627e\u5b57\u6bb5\u6216\u6587\u672c\u3002<\/p>\n
Ctrl+G\uff1a\u6253\u5f00\u201c\u8f6c\u5230\u201d\u5bf9\u8bdd\u6846\uff0c\u53ef\u4ee5\u5feb\u901f\u8f6c\u5230\u6307\u5b9a\u7684\u884c\u6216\u5b57\u6bb5\u3002<\/p>\n
Ctrl+Shift+A\uff1a\u9009\u62e9\u6574\u4e2a\u8868\u683c\uff0c\u5305\u62ec\u5b57\u6bb5\u540d\u79f0\u3001\u6570\u636e\u7c7b\u578b\u548c\u6570\u636e\u503c\u3002<\/p>\n
\u6211\u4eec\u8fd8\u9700\u8981\u6ce8\u610f\u7684\u662f\uff0cAccess\u6570\u636e\u5e93\u8fd8\u53ef\u4ee5\u4f7f\u7528SQL\u8bed\u8a00\u8fdb\u884c\u67e5\u8be2\u3002\u5982\u679c\u4f60\u60f3\u8fdb\u884c\u66f4\u590d\u6742\u7684\u67e5\u8be2\uff0c\u53ef\u4ee5\u4f7f\u7528SQL\u8bed\u53e5\u8fdb\u884c\u67e5\u8be2\u548c\u7b5b\u9009\u3002<\/p>\n
\u5c0f\u7ed3<\/p>\n
\u5728Access\u6570\u636e\u5e93\u4e2d\uff0c\u5feb\u901f\u67e5\u627e\u8868\u683c\u4e2d\u7684\u6240\u6709\u5b57\u6bb5\u53ef\u4ee5\u5e2e\u52a9\u6211\u4eec\u66f4\u597d\u5730\u4e86\u89e3\u6570\u636e\u7ed3\u6784\uff0c\u4ece\u800c\u66f4\u597d\u5730\u7ba1\u7406\u548c\u7ef4\u62a4\u6570\u636e\u5e93\u3002\u901a\u8fc7\u4f7f\u7528Access\u6570\u636e\u5e93\u7684\u201c\u8bbe\u8ba1\u89c6\u56fe\u201d\u548c\u201c\u6811\u5f62\u7ed3\u6784\u201d\u89c6\u56fe\uff0c\u6211\u4eec\u53ef\u4ee5\u65b9\u4fbf\u5730\u67e5\u770b\u8868\u683c\u7684\u8be6\u7ec6\u4fe1\u606f\u3002\u540c\u65f6\uff0c\u4f7f\u7528\u5e38\u7528\u7684\u5feb\u6377\u952e\uff0c\u53ef\u4ee5\u63d0\u9ad8\u67e5\u627e\u7684\u6548\u7387\u3002\u5728\u5b9e\u9645\u4f7f\u7528\u8fc7\u7a0b\u4e2d\uff0c\u6211\u4eec\u9700\u8981\u719f\u7ec3\u638c\u63e1\u8fd9\u4e9b\u6280\u5de7\uff0c\u4ee5\u4fbf\u66f4\u597d\u5730\u5e94\u7528\u4e8e\u5de5\u4f5c\u548c\u5b66\u4e60\u4e2d\u3002<\/p>\n
\u76f8\u5173\u95ee\u9898\u62d3\u5c55\u9605\u8bfb\uff1a<\/strong><\/p>\n Connection.OpenSchema \u67af\u5acc\u731cadSchemaTables adSchemaColumns<\/p>\n ====================================================<\/p>\n \u5177\u4f53\u5b9e\u73b0\u4ee3\u7801\uff1a<\/p>\n Private Sub \u8005\u6b7cCommand1_Click()<\/p>\n Dim cnn As Object<\/p>\n <\/p>\n Const adSchemaTables = 20<\/p>\n Const adSchemaColumns = 4<\/p>\n <\/p>\n Set cnn = CreateObject(\u201cadodb.connection\u201d)<\/p>\n <\/p>\n cnn.Open \u201cProvider=Microsoft.Jet.OLEDB.4.0;Data Source=\u2019c:\\test.mdb\u2019;Persist Security Info=False\u201d<\/p>\n Set rds = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, \u201cTable\u201d\u6ca1\u578b))<\/p>\n Debug.Print \u201cTable_Name\u201d, \u201cColumn_Name\u201d<\/p>\n Do Until rds.EOF<\/p>\n Table_name = rds!Table_name<\/p>\n Set temp = cnn.OpenSchema(adSchemaColumns, Array(Empty, Empty, Table_name))<\/p>\n Do Until temp.EOF<\/p>\n Debug.Print Table_name, temp!Column_Name<\/p>\n temp.MoveNext<\/p>\n Loop<\/p>\n rds.MoveNext<\/p>\n Loop<\/p>\n <\/p>\n rds.Close<\/p>\n temp.Close<\/p>\n cnn.Close<\/p>\n End Sub<\/p>\n \u7ed9LZ\u4e00\u4e2a\u4ee3\u7801\u53ef\u4ee5\u641c\u7d22ACCESS\u6570\u636e\u5e93\u5185\u6240\u6709\u8868\u540d\u7684\u4ee3\u7801\u3002<\/p>\n Option Explicit<\/p>\n Dim TableSet As ADODB.Recordset<\/p>\n Dim Gconnection As ADODB.Connection<\/p>\n Dim lianjie As String<\/p>\n Sub getTableName()<\/p>\n lianjie = \u201cProvider=Microsoft.Jet.OLEDB.4.0;Data Source=J:\\LDGZ\\\u5357\u6c4740M^2New\\ldgz30_wdN19200\\Data\\wdold.mdb;Persist Security Info=False\u201d<\/p>\n Set Gconnection = New ADODB.Connection<\/p>\n \u6e23\u886b Gconnection.Open lianjie<\/p>\n Set TableSet = Gconnection.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, Empty))<\/p>\n Do Until \u7fa1\u54d7TableSet.EOF<\/p>\n \u5982\u6d3e\u8154List1.AddItem TableSet!table_name<\/p>\n TableSet.MoveNext<\/p>\n Loop<\/p>\n End Sub<\/p>\n Private Sub Form_Load()<\/p>\n getTableName<\/p>\n End Sub<\/p>\n LZ\u53ef\u4ee5\u5c06lianjie\u53d8\u91cf\u4ee5\u4f60\u81ea\u5df1\u7684\u8fde\u63a5\u5b57\u7b26\u4e32\u66ff\u4ee3\u3002\u6211\u8fd9\u91cc\u662f\u7528ACCESS7\u7684\u6570\u636e\u5e93\u3002<\/p>\n \u518d\u7ed9LZ\u63d0\u4f9b\u4e00\u4e2a\u94fe\u63a5<\/p>\n<\/p>\n \u662f\u5173\u4e8e\u83b7\u53d6\u201c<\/p>\n VB \u8bfb\u53d6ACCESS\u6570\u636e\u5e93\u4e2d\u6240\u6709\u8868\u540d\u53ca\u6307\u5b9a\u8868\u7684\u5b57\u6bb5\u540d<\/p>\n \u201c\u7684Word\u6587\u4ef6\u3002<\/p>\n \u697c\u4e3b\u53ef\u4ee5\u8bbf\u95ee\u672c\u4eba\u9675\u96c0\u7684<\/p>\n \u767e\u5ea6\u7a7a\u95f4<\/p>\n \u6587\u7ae0 \u201cVB\u5c06<\/p>\n ACCESS\u6570\u636e\u5e93<\/p>\n \u4e2d\u7684\u6240\u626e\u6c6a\u94fe\u6709\u8868\u540d\u52a0\u8f7d\u5230\u5217\u8868\u6846\u91cc\u201d\u3002\u90a3\u91cc\u5217\u4e3e\u4e86\u4e24\u79cd\u89e3\u5385\u5b59\u51b3\u65b9\u6848\u53ca\u6709\u5173\u4ee3\u7801\uff0c\u76f8\u4fe1\u80fd\u5e2e\u5230\u4f60\u3002<\/p>\n \u83b7\u53d6\u67d0\u5f20\u8868\u7684\u6240\u6709\u5b57\u6bb5\u540d\u53ef\u4ee5\u53c2\u8003\u6211\u7684\u4ee5\u4e0b\u77e5\u9053\u56de\u7b54<\/p>\n<\/p>\n \u5f15\u7528\u65b9\u6cd5\uff1a<\/p>\n \u5f15\u7528ADO\u2014\u2014 \u83dc\u5355\u201d\u5de5\u7a0b\u201d-> \u201c\u5f15\u7528 \u201c\u2013>\u52fe\u9009 Microsoft ActiveX Data Objects 2.1 Library \u6216\u66f4\u9ad8\u7248\u672c\uff0c\u70b9\u51fb\u786e\u5b9a\u6309\u94ae\u3002<\/p>\n \u65b9\u6cd5\u4e00 <\/p>\n Private Sub Form_Load()<\/p>\n Dim cn As New ADODB.Connection \u2018\u58f0\u660e\u5e76\u5b9e\u4f8b\u5316\u4e00\u4e2aADO\u8fde\u63a5\u5bf9\u8c61<\/p>\n Dim cnStr As String\u2019\u58f0\u660e\u4e00\u4e2a\u8fde\u63a5\u5b57\u7b26\u4e32\u53d8\u91cf<\/p>\n Dim rsSchema As New ADODB.Recordset \u2018\u58f0\u660e\u5e76\u5b9e\u4f8b\u5316\u4e00\u4e2a\u8bb0\u5f55\u96c6\u5bf9\u8c61<\/p>\n \u2018\u8bbe\u7f6e\u8fde\u63a5\u5f53\u524d\u76ee\u5f55\u4e0b\u201cMyAccess.mdb\u201d\u4e4b\u8fde\u63a5\u5b57\u7b26\u4e32<\/p>\n cnStr = \u201cProvider=Microsoft.Jet.OLEDB.4.0;Data Source=\u201d & App.Path & \u201c\\MyAccess.mdb;Persist Security Info=False;\u201d<\/p>\n cn.Open cnStr \u2018\u6253\u5f00\u4e0e\u8be5\u6570\u636e\u5e93\u7684\u8fde\u63a5<\/p>\n Set rsSchema = cn.OpenSchema(adSchemaTables) \u2018\u6253\u5f00\u6570\u636e\u5e93\u6240\u6709\u8868\u8bb0\u5f55\u96c6<\/p>\n \u2018\u5faa\u73af\u5c06\u6240\u6709\u8868\u540d\u9010\u4e2a\u8010\u8d25\u5199\u5165\u5217\u8868\u6846<\/p>\n Do Until rsSchema.EOF<\/p>\n If rsSchema!TABLE_TYPE = \u201cTABLE\u201d Then<\/p>\n List1.AddItem rsSchema!TABLE_NAME<\/p>\n End If<\/p>\n rsSchema.MoveNext<\/p>\n Loop<\/p>\n rsSchema.Close \u2018\u5173\u95ed\u8bb0\u5f55\u96c6<\/p>\n Set rsSchema= Nothing \u2018\u91ca\u653e\u8bb0\u5f55\u96c6\u5bf9\u8c61<\/p>\n cn.Close \u2018\u5173\u95ed\u8fde\u63a5<\/p>\n Set cn = Nothing \u2018\u91ca\u653e\u8fde\u63a5\u5bf9\u8c61<\/p>\n End Sub<\/p>\n \u65b9\u6cd5\u4e8c<\/p>\n ACCESS\u6570\u636e\u5e93\u7cfb\u7edf\u8868\u201dMsysObjects\u201d\u91cc\u5b58\u653e\u7740\u6240\u6709\u6570\u636e\u8868\u7684\u8d44\u6599\uff0c\u4f46\u662f\u5176\u8bbf\u95ee\u6743\u9650\u9ed8\u8ba4\u4e3a\u4e0d\u5f00\u653e\u3002\u5982\u679c\u4e0d\u5acc\u8bbe\u7f6eACCESS\u6570\u636e\u5e93\u7cfb\u7edf\u8868\u6743\u9650\u9ebb\u70e6\uff0c\u4e0b\u5217VB\u4ee3\u7801\u53ef\u4ee5\u76f4\u63a5\u8bfb\u53d6\u201dMsysObjects\u201d\u91cc\u8bb0\u8f7d\u7684\u5df2\u4fdd\u5b58\u8868\u540d\u4fe1\u606f\uff0c\u5e76\u4e8e\u7a97\u4f53\u52a0\u8f7d\u65f6\u5c06\u5f97\u5230\u7684\u5168\u90e8\u8868\u540d\u5199\u5165\u5217\u8868\u6846\u91cc\u3002<\/p>\n \u9996\u5148\u8981\u8bbe\u7f6e\u8bfb\u53d6ACCESS\u6570\u636e\u5e93\u7cfb\u7edf\u8868\u201dMsysObjects\u201d\u7684\u6743\u9650\uff0c\u65b9\u6cd5\u5982\u4e0b\uff1a<\/p>\n \u6253\u5f00ACCESS\u6570\u636e\u5e93\u2013>\u83dc\u5355\u2013>\u5de5\u5177\u2013>\u9009\u9879 \u6253\u5f00\u9009\u9879\u5bf9\u8bdd\u6846\uff0c\u4e8e\u89c6\u56fe\u9009\u9879\u5361 \u52fe\u9009\u201c\u7cfb\u7edf\u5bf9\u8c61\u201d\u70b9\u51fb\u201c\u786e\u5b9a\u201d\u6309\u94ae\uff1b<\/p>\n \u8ddf\u7740\uff0c\u83dc\u5355\u2013>\u5de5\u5177\u2013>\u5b89\u5168\u2013>\u7528\u6237\u4e0e\u7ec4\u6743\u9650 \u6253\u5f00\u201c\u7528\u6237\u4e0e\u7ec4\u6743\u9650\u201d\u5bf9\u8bdd\u6846\uff0c\u4e8e\u6743\u9650\u9009\u9879\u5361 \u9009\u62e9 \u201c\u7ba1\u7406\u5458\u3001\u201dMsysObjects\u201d\u8868 \u4e8e\u6743\u9650\u6846\u52fe\u9009\u201c\u8bfb\u53d6\u6570\u636e\u201d\u70b9\u51fb\u201c\u786e\u5b9a\u201d\u6309\u94ae\u3002<\/p>\n ***\u6ce8\u610f\u4e3a\u4e86\u786e\u4fddACCESS\u6570\u636e\u5e93\u7684\u5b89\u5168\uff0c\u8bbe\u7f6e\u5b8c\u6743\u9650\u540e\uff0c\u5e94\u5c06\u7cfb\u7edf\u5bf9\u8c61\u91cd\u65b0\u9690\u85cf\u3002<\/p>\n \u83dc\u5355\u2013>\u5de5\u5177\u2013>\u9009\u9879 \u6253\u5f00\u9009\u9879\u5bf9\u8bdd\u6846\uff0c\u4e8e\u89c6\u56fe\u9009\u9879\u5361 \u53d6\u6d88\u52fe\u9009\u201c\u7cfb\u7edf\u5bf9\u8c61\u201d<\/p>\n \u70b9\u51fb\u201c\u786e\u5b9a\u660c\u5c71\u98a4\u201d\u6309\u94ae\u3002<\/p>\n Private Sub Form_Load()<\/p>\n Dim cn As New ADODB.Connection \u2018\u58f0\u660e\u5e76\u5b9e\u4f8b\u5316\u4e00\u4e2aADO\u8fde\u63a5\u5bf9\u8c61<\/p>\n Dim cnStr As String\u2019\u58f0\u660e\u4e00\u4e2a\u8fde\u63a5\u5b57\u7b26\u4e32\u53d8\u91cf<\/p>\n Dim rs As New ADODB.Recordset \u2018\u58f0\u660e\u5e76\u5b9e\u4f8b\u5316\u4e00\u4e2a\u8bb0\u5f55\u96c6\u5bf9\u8c61<\/p>\n Dim sqlStr As String \u2018\u58f0\u660e\u4e00\u4e2aSQL\u67e5\u8be2\u5b57\u7b26\u4e32\u53d8\u91cf<\/p>\n \u2018\u8bbe\u7f6e\u8fde\u63a5\u5f53\u524d\u76ee\u5f55\u4e0b\u201cMyAccess.mdb\u201d\u4e4b\u8fde\u63a5\u5b57\u7b26\u4e32<\/p>\n cnStr = \u201cProvider=Microsoft.Jet.OLEDB.4.0;Data Source=\u201d & App.Path & \u201c\\db1.mdb;Persist Security Info=False;\u201d<\/p>\n cn.Open cnStr \u2018\u6253\u5f00\u4e0e\u8be5\u6570\u636e\u5e93\u7684\u8fde\u63a5<\/p>\n rs.CursorLocation = adUseClient \u2018\u8bbe\u7f6e\u4e3a\u5ba2\u6237\u7aef\u6e38\u6807<\/p>\n \u2018\u8bbe\u7f6e\u67e5\u8be2\u8868\u540d\u5217\u8868\u4e4bSQL\u8bed\u53e5<\/p>\n sqlStr = \u201cselect Name from MsysObjects where type=1 and Flags=0\u201d<\/p>\n rs.Open sqlStr, cn \u2018\u6253\u5f00\u6570\u636e\u5e93\u8868\u8bb0\u5f55\u96c6<\/p>\n \u2018\u56e0\u4e3a\u76f4\u63a5\u8bfb\u53d6\u201cMsysObjects\u201c\u5f97\u5230\u7684\u8868\u540d\u5217\u8868\u79e9\u5e8f\u6df7\u4e71\uff0c\u6545\u8fd9\u91cc\u5f3a\u5236\u5bf9\u8868\u540d\u8fdb\u884c\u6392\u5e8f<\/p>\n rs.Sort = \u201cName ASC\u201d <\/p>\n \u2018\u5faa\u73af\u9010\u4e2a\u5c06\u8868\u540d\u653e\u7f6e\u5230\u5217\u8868\u6846\u91cc<\/p>\n Do Until rs.EOF<\/p>\n List1.AddItem rs!Name<\/p>\n rs.MoveNext<\/p>\n Loop<\/p>\n rs.Close \u2018\u5173\u95ed\u8bb0\u5f55\u96c6<\/p>\n Set rs = Nothing \u2018\u91ca\u653e\u8bb0\u5f55\u96c6\u5bf9\u8c61<\/p>\n cn.Close \u2018\u5173\u552f\u8005\u95ed\u8fde\u63a5<\/p>\n Set cn = Nothing \u2018\u91ca\u653e\u8fde\u63a5\u5bf9\u8c61<\/p>\n End Sub<\/p>\n select * from \u8868\u540d where \u5b57\u6bb5\u503c=\u2019\u6307\u5b9a\u5b57\u6bb5\u503c\u2019<\/p>\n \u5229\u7528Access\u4e2d\u7684\u67e5\u8be2\u529f\u80fd\u5c31\u53ef\u5b9e\u73b0\uff0c\u4e0d\u77e5\u697c\u4e3b\u8bf4\u7684\u662f\u5426\u5c31\u662f\u53d6\u5305\u62ec\u591a\u4e2a\u8bb0\u5f55\u7684\u503c\u554a\u3002\u5982\u679c\u662f\uff0c\u90a3\u4e48\u8bf7\u6309\u4ee5\u4e0b\u8fdb\u62cd\u7f3a\u8682\u884c\u64cd\u4f5c\uff1a<\/p>\n \u5148\u70b9\u5f00Access\u4e2d\u7684\u67e5\u8be2\u7a97\u4f53\uff0c\u5982\u679c\u4e0d\u662f\u592a\u4e86\u89e3\u7684\u8bdd\uff0c\u90a3\u4e48\u5efa\u8bae\u697c\u4e3b\u4f7f\u7528\u5176\u4e2d\u7684\u201c\u4f7f\u7528\u5411\u5bfc\u521b\u5efa\u67e5\u8be2\u201d\uff0c\u70b9\u5f00\u540e\uff0c\u4f9d\u636e\u63d0\u793a\u5c06\u6240\u9700\u5b57\u6bb5\u4e00\u6b65\u4e00\u6b65\u8fdb\u884c\u9009\u62e9\uff0c\u518d\u63a5\u7740\u64cd\u4f5c\uff0c\u5f53\u64cd\u4f5c\u5b8c\u6210\u540e\uff0c\u51fa\u73b0\u7684\u5e94\u8be5\u662f\u201c\u6570\u636e\u8868\u89c6\u56fe\u201d\uff0c\u6b64\u65f6\u518d\u70b9\u51fb\u201c\u8bbe\u8ba1\u89c6\u56fe\u201d\uff0c\u5728\u6761\u4ef6\u4e2d\u8f93\u5165\u5982\u5305\u626e\u778e\u62ec\u5f20\u4e09\u7684\u8bb0\u5f55\uff0c\u90a3\u4e48\u8f93\u5165\u201c\u5f20\u4e09\u201d\uff0c\u540c\u65f6\u5982\u679c\u8fd8\u5305\u62ec\u674e\u56db\u7684\u503c\uff0c\u90a3\u4e48\u5728\u6761\u4ef6\u7684\u4e0b\u4e00\u884c\u8f93\u5165\u201c\u674e\u56db\u201d\uff0c\u4ee5\u6b64\u7c7b\u63a8\uff0c\u6700\u540e\u5c06\u6307\u5b9a\u5b57\u6bb5\u7684\u503c\u8f93\u5165\u5b8c\u6210\uff0c\u518d\u70b9\u51fb\u201c\u6570\u636e\u8868\u89c6\u56fe\u201d\u8fdb\u884c\u67e5\u770b\u5373\u53ef\u3002\u5728\u6b64\u5982\u679c\u4e0d\u662f\u5b8c\u5168\u5339\u914d\uff0c\u88ad\u57cb\u90a3\u4e48\u53ef\u4ee5\u4f7f\u7528<\/p>\n \u901a\u914d\u7b26<\/p>\n *(\u4ee3\u8868\u6240\u6709)\u6216?(\u4ee3\u8868\u4e00\u4e2a)\u3002\u5982\u5305\u62ec\u5f20\u4e09\uff0c\u90a3\u4e48\u8f93\u5165like\u201c*\u5f20\u4e09*\u201d\u5373\u53ef\u3002<\/p>\n \u5e0c\u671b\u6211\u7684\u56de\u7b54\u5bf9\u4f60\u6709\u5e2e\u52a9\uff0c\u5982\u6709\u7591\u95ee\u53ef\u4ee5\u7559\u8a00\u6216\u5728\u7ebf\u4ea4\u6d41\u3002<\/p>\n SELECT \u88681.\u5b57\u6bb51\uff0c \u88681.\u5b57\u6bb52<\/p>\n FROM \u88681;<\/p>\n where \uff08\u88681.\u5b57\u6bb52 in \uff08\u201c\u6307\u5b9a\u6761\u4ef61\u201d\uff0c\u201c\u6307\u5b5d\u62cd\u5b9a\u6761\u4ef62\u201d\uff09\uff09<\/p>\n \u8fd4\u56de\u88681\u4e2d\u6307\u5b9a\u6761\u4ef61\u548c\u6307\u5b9a\u7b80\u814a\u6761\u4ef62\u7684\u6240\u6709\u8bb0\u5f55\u3002\u62e6\u614e\u6ed1<\/p>\n \u8fd9\u79cd\u60c5\u51b5\u9700\u8981\u5199\u5b58\u50a8\u8fc7\u7a0b\uff0c\u8fdb\u884c\u5168\u5e93\u641c\u7d22\u67a3\u96c0\u3002\u4ee3\u7801\u5982\u4e0b\uff1a<\/p>\n<\/p>\n declare @cloumns varchar(40)<\/p>\n declare @tablename varchar(40)<\/p>\n declare @str varchar(40)<\/p>\n declare @counts int<\/p>\n declare @sql nvarchar(2023)<\/p>\n declare MyCursor Cursor For <\/p>\n Select a.name as Columns, b.name as TableName from syscolumns a,sysobjects b,systypes c <\/p>\n where a.id = b.id<\/p>\n and b.type = \u2018U\u2019 <\/p>\n and a.xtype=c.xtype<\/p>\n and c.name like \u2018\u5e76\u7b11%varchar%\u2019<\/p>\n set @str=\u2019\u5f20\u4e09\u2019<\/p>\n Open MyCursor<\/p>\n Fetch next From MyCursor Into @cloumns,@tablename<\/p>\n While(@@Fetch_Status = 0)<\/p>\n Begin<\/p>\n set @sql=\u2019select @tmp_counts=count(*) from \u2018 +@tablename+ \u2018 where \u2018 +@cloumns+\u2019 = \u201d\u2019 +@str+ \u201d\u201d<\/p>\n execute sp_executesql @sql,N\u2019@tmp_counts int out\u2019,@counts out<\/p>\n if @counts>\u51f3\u853d\u65e90<\/p>\n begin<\/p>\n print \u2018\u8868\u540d\u4e3a:\u2019+@tablename+\u2019,\u5b57\u6bb5\u540d\u4e3a\u2019+@cloumns<\/p>\n end<\/p>\n Fetch next From MyCursor Into @cloumns,@tablename<\/p>\n End<\/p>\n Close MyCursor<\/p>\n Deallocate MyCursor<\/p>\n \u6ce8\u610f\uff1a\u5176\u4e2d\u201c\u5f20\u4e09\u201d\u4e3a\u8981\u67e5\u627e\u7684\u5b57\u7b26\u4e32\uff0c\u53ef\u4ee5\u66ff\u6362\u6210\u5176\u4ed6\u7684\uff0c\u5982\u679c\u67e5\u8be2\u7684\u5b57\u7b26\u4e32\u8d85\u957f\uff0c\u9700\u8981\u5728\u5b9a\u4e49\u53d8\u91cf\u65f6\u9002\u5f53\u6269\u5927\u957f\u5ea6\u3002<\/p>\n \u5173\u4e8eaccess\u6570\u636e\u5e93 \u67e5\u627e \u8868 \u6240\u6709\u5b57\u6bb5\u7684\u4ecb\u7ecd\u5230\u6b64\u5c31\u7ed3\u675f\u4e86\uff0c\u4e0d\u77e5\u9053\u4f60\u4ece\u4e2d\u627e\u5230\u4f60\u9700\u8981\u7684\u4fe1\u606f\u4e86\u5417 \uff1f\u5982\u679c\u4f60\u8fd8\u60f3\u4e86\u89e3\u66f4\u591a\u8fd9\u65b9\u9762\u7684\u4fe1\u606f\uff0c\u8bb0\u5f97\u6536\u85cf\u5173\u6ce8\u672c\u7ad9\u3002<\/p>\n\n
vb\u5982\u4f55\u83b7\u53d6access\u6570\u636e\u5e93\u7684\u6240\u6709\u8868\u548c\u5b57\u6bb5\u540d\uff1f\uff1f<\/h3>\n
access\u6570\u636e\u5e93\u4e2d\u6709\u8bb8\u591a\u6761\u8bb0\u5f55\uff0c\u67e5\u627e\u591a\u4e2a\u6307\u5b9a\u5b57\u6bb5\u503c\u8bb0\u5f55\u7684\u65b9\u6cd5\uff0c\u8c22\u8c22\uff01<\/h3>\n
\u600e\u4e48\u7528Access\u63d2\u4ef6\u67e5\u8be2\u6570\u636e\u5e93\u4e2d\u7684\u5b57\u6bb5\u503c<\/h3>\n