UC知道一小段C＃代码，帮转成VB的，谢谢（在线等）
来源：百度知道 编辑：UC知道 时间：2024/05/22 20:05:46
namespace WenJuanXT
{
/// <summary>
/// DB 的摘要说明。
/// </summary>
public class DB
{
public DB()
{
// TODO: 在此处添加构造函数逻辑
//
}
public static SqlConnection createConnection()
{
SqlConnection con=new SqlConnection("server=(LOCAL);database=wenjuan;uid=sa;pwd=123;");
return con;
}
}
}
{
/// <summary>
/// DB 的摘要说明。
/// </summary>
public class DB
{
public DB()
{
// TODO: 在此处添加构造函数逻辑
//
}
public static SqlConnection createConnection()
{
SqlConnection con=new SqlConnection("server=(LOCAL);database=wenjuan;uid=sa;pwd=123;");
return con;
}
}
}
Namespace WenJuanXT
''' <summary>
''' DB 的摘要说明。
''' </summary>
Public Class DB
Public Sub New()
' TODO: 在此处添加构造函数逻辑
'
End Sub
Public Shared Function createConnection() As SqlConnection
Dim con As New SqlConnection("server=(LOCAL);database=wenjuan;uid=sa;pwd=123;")
Return con
End Function
End Class
End Namespace
Function GetAdoConn() As ADODB.Connection
Dim pConn As ADODB.Connection
Set pConn = CreateObject("adodb.connection")
Dim tempStr As String
Dim tempServer As String
Dim tempDb As String
Dim tempUser As String
Dim tempPass As String
tempServer = "(LOCAL)"
tempDb = "wenjuan