菜鸟问题：数据库连接

2001-11-26 11:51:09 117 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

移动端开发面试全解析：从安全视角到跨平台实战移动端开发是当前企业数字化进程中不可或缺的技术方向，涉及原生应用、跨平台框架、网络通信与安全防护等多个层面。理解其底层原理，如操作系统线程调度、HTTPS证书校验与内存管理机制，是构建稳定应用的基础。随着业务多端覆盖需求增长，Vue等跨平台技术选型成为团队降本增效的关键，而安全能力在金融、政企等场景中更是核心要求。从算法基础到项目复盘，面试考察的本质是工程思维与问题解决能力。本文以安全企业移动端试题为切入点，梳理移动端开发面试的知识体系，帮助开发者系统化备战，提升综合竞争力。阅读详情

与远程数据库相连的代码怎么写？能举个例子最好了。

...全文

主流安卓模拟器过检测全攻略：Magisk与LSPosed框架的安装与隐藏技巧本文详细解析了主流安卓模拟器（如雷电、Nox、Mumu、逍遥模拟器）如何通过Magisk与LSPosed框架绕过游戏检测机制。从设备指纹伪装、系统特征修改到Root环境隐藏，提供了一套完整的过检测解决方案，包括Magisk Delta定制安装、LSPosed框架深度隐藏技巧以及针对不同模拟器的专项优化方案。阅读详情

nowayway

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

lihonggen0 2001-11-26

打赏
举报

dim cn as adodb.connect
dim rscn as adodb.recordset
dim connectstring as string
connectstring="driver={SQLSERVER};server=serverip;uid=sa;pwd=;database=userdatabase"
cn.open connectstring

为了防止出错需要修改注册表中的键software\microsoft\mssqlserver\connecttodsquery确保为tcp/ip

lihonggen0 2001-11-26

打赏
举报

Public Function OpenConnection() As String '打开数据库
On Error GoTo SQLConErr
With adoCN
.CursorLocation = adUseClient
.Provider = "sqloledb"
.Properties("Data Source").Value = cNtServerName
.Properties("Initial Catalog").Value = cDatabaseName
.Properties("User ID") = cSQLUserName
.Properties("Password") = cSQLPassword
.Properties("prompt") = adPromptNever
.ConnectionTimeout = 15
.Open

If .State = adStateOpen Then
adoDateTime.Open "select getdate()", adoCN, adOpenStatic, adLockOptimistic
cServerDate = Format(adoDateTime(0), "yyyy-mm-dd")
cServertime = Mid(adoDateTime(0), 10)
Else
MsgBox "数据库连接失败，请找系统管理员进行检查！", 16, cProgramName
End
End If
End With

SqlCommand.ActiveConnection = adoCN
SqlCommand.CommandType = adCmdText
Exit Function
SQLConErr:
Select Case Err.Number
Case -2147467259
MsgBox "找不到指定的SQL Server服务器或者数据库不存在，请重新设置！", vbExclamation
F_SetSystem.Show 1
Case -2147217843
MsgBox "指定的SQL Server数据库用户不存在或口令错误，请重新设置！", vbExclamation
F_SetSystem.Show 1
Case Else
MsgBox "数据环境连接失败，请找系统管理员进行检查！", 16, cProgramName
End Select
OpenConnection
End Function

netcar 2001-11-26

打赏
举报

利用ADO进行连结，很方便的。

sqstudio_zsp 2001-11-26

打赏
举报

Public Sub OpenX()

Dim cnn1 As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
Dim varDate As Variant

' 打开连接。
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn

' 打开雇员表。
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "employee", cnn1, , , adCmdTable

' 将第一个雇员记录的受雇日期赋值给变量，然后更改受雇日期。
varDate = rstEmployees!hire_date
Debug.Print "Original data"
Debug.Print " Name - Hire Date"
Debug.Print " " & rstEmployees!fName & " " & _
rstEmployees!lName & " - " & rstEmployees!hire_date
rstEmployees!hire_date = #1/1/1900#
rstEmployees.Update
Debug.Print "Changed data"
Debug.Print " Name - Hire Date"
Debug.Print " " & rstEmployees!fName & " " & _
rstEmployees!lName & " - " & rstEmployees!hire_date

' 再查询 Recordset 并重置受雇日期。
rstEmployees.Requery
rstEmployees!hire_date = varDate
rstEmployees.Update
Debug.Print "Data after reset"
Debug.Print " Name - Hire Date"
Debug.Print " " & rstEmployees!fName & " " & _
rstEmployees!lName & " - " & rstEmployees!hire_date

rstEmployees.Close
cnn1.Close

End Sub

nowayway 2001-11-26

打赏
举报

怎么我给不了分？

rghjf 2001-11-26

打赏
举报

'==============================================================================
'初始化数据环境
'==============================================================================
Function IniDataEnviroment(ByVal sServerNm As String, ByVal sDbNm As String, _
ByVal sUser As String, ByVal sPwd As String) As Long
Dim con As Connection
Dim sConnection As String
On Error GoTo Err_

'打开数据连接、验证
'==============================
For Each con In DE.Connections
With con
.CursorLocation = adUseClient
sConnection = " Provider=SQLOLEDB.1; "

'如果提供了用户名不是用集成安全特性
'==================================
If Trim(sUser) <> "" Then
sConnection = sConnection & " Integrated Security=; "
sConnection = sConnection & " Persist Security Info=FALSE; "
sConnection = sConnection & " Use Procedure for Prepare=1; "
Else
sConnection = sConnection & " Integrated Security=SSPI; "
sConnection = sConnection & " Persist Security Info=False; "
sConnection = sConnection & " Use Procedure for Prepare=1; "
End If

sConnection = sConnection & " Data Source=" & sServerNm & "; "
sConnection = sConnection & " User ID=" & sUser & "; "
sConnection = sConnection & " Password=" & sPwd & "; "

.Properties("Prompt") = 3 '当验证有误时提示用户口令
.ConnectionString = sConnection
.Open
.DefaultDatabase = sDbNm

End With
Next
Set con = Nothing
Exit Function

Err_:
Call SystemEnd
End Function

菜鸟问题：数据库连接

相关推荐