动态生成dsn的例子,帮我看看问题出在哪?

2002-10-22 01:38:14 70 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Sentry 9.x版本下，除了SSRF，你还需要检查这几个默认配置的安全隐患本文深入探讨了Sentry 9.x版本中除SSRF外的多个默认配置安全隐患，提供了全面的安全防护指南。从核心功能的安全取舍、密钥管理、访问控制到数据生命周期管理，详细介绍了如何通过精细化配置和纵深防御策略提升Sentry的安全性，确保企业监控体系的安全可靠。阅读详情

'''''''''''''''''''''''''''''''''''''
'''动态生成dsn'''''''''''''''''''''
''''''''''''''''''''''''''''''''''
Public Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" (ByVal hwndParent As Long, ByVal fRequest As Long _
, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long
Public Const ODBC_ADD_DSN = 1 ' Add data source
Public Const ODBC_CONFIG_DSN = 2 ' Configure (edit) data source
Public Const ODBC_REMOVE_DSN = 3 ' Remove data source
Public Const vbAPINull As Long = 0 ' NULL Pointer
Public Const STR_DSN_IMPORT As String = "llz"

Public Function AddImportDSN(ByVal strPath As String) As Long
Dim intRet As Long
Dim strDriver As String
Dim strAttributes As String

'Set the driver to SQL Server because it is most common.
strDriver = "Microsoft Visual FoxPro Driver"
'Set the attributes delimited by null.
'See driver documentation for a complete
'list of supported attributes.
strAttributes = ""
strAttributes = strAttributes & "DSN=" + STR_DSN_IMPORT + Chr(0)
strAttributes = strAttributes & "UID=" & Chr(0)
strAttributes = strAttributes & "Deleted = Yes" & Chr(0)
strAttributes = strAttributes & "Null=Yes" & Chr(0)
strAttributes = strAttributes & "Collate = Machine" & Chr(0)
strAttributes = strAttributes & "BackgroundFetch = Yes" & Chr(0)
strAttributes = strAttributes & "Exclusive = No" & Chr(0)
strAttributes = strAttributes & "SourceType = DBF" & Chr(0)
strAttributes = strAttributes & "SourceDB=" & strPath & Chr(0)
'To show dialog, use Form1.Hwnd instead of vbAPINull.

SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, strDriver, strAttributes)
'intRet =
'AddImportDSN = intRet
End Function

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
AddImportDSN("c:\mm")
End Sub
SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, strDriver, strAttributes)
报错!未将对象引用设置到对象的实例。
请帮我看看,问题出在哪呢?

...全文