public shared function createCon() as sqlconnection
dim con as sqlconnection=
return con
end function
datagrid1.columns(1).visible=false
datagrid1.databind
dim con as sqlconnection=
return con
end function
datagrid1.columns(1).visible=false
datagrid1.databind
给我一个原样的好么.
然后代码是
Imports System.Data.SqlClient
Public Class DBEnd Class
Public Shared Function createCon() As SqlConnection
Dim con As New SqlConnection("server=.;database=bbs;uid=sa;pwd=;")
Return con
End Function错误是
Public Shared Function createCon() As SqlConnection(下面表蓝线)F:\ey\bbsbook\DB.vb(5): 语句在命名空间中无效。
CON=DB.createCon()
以前做C#的时候调试的好好的.现在刚用VB就不行了呢.
using System;
using System.Data;
using System.Data.SqlClient;
namespace adoNetTest
{
public class DB
{
public DB()
{
}
public static SqlConnection createCon()
{
return new SqlConnection("server=127.0.0.1;database=departement;uid=sa;pwd=;");
}
}
}vb.net:
Imports System
Imports System.Data
Imports System.Data.SqlClient
Namespace adoNetTest
Public Class DB
Public Sub New()
End Sub
Public Shared Function createCon() As SqlConnection
Return New SqlConnection("server=127.0.0.1;database=departement;uid=sa;pwd=;")
End Function
End Class
End Namespace
Public Class DB
Public Shared Function createCon() As SqlConnection
Dim con As New SqlConnection("server=.;database=bbs;uid=sa;pwd=;")
Return con
End Function
End Class