Database

str = Application.StartupPath & "\SQLEXPR32\setup.exe /qb ADDLOCAL=ALL INSTANCENAME=" & InstanceName & " SECURITYMODE=SQL SAPWD=sapassword DISABLENETWORKPROTOCOLS=0 "<br />
            Shell(str, AppWinStyle.Hide, True)<br />
            System.Threading.Thread.Sleep(5000)<br />
            Dim MainServer As Server = New Server(ComputerName & "\" & InstanceName)<br />
            With MainServer.ConnectionContext<br />
                .LoginSecure = True<br />
                .ConnectionString = "Server=" & ComputerName & "\" & InstanceName & " ;Trusted_Connection=Yes"<br />
                Try<br />
                    .Connect()<br />
                Catch ex As Exception<br />
                    Application.Exit()<br />
                End Try<br />
                If MainServer.Databases.Contains(DatabaseName) Then<br />
                Else<br />
                    Dim logstr As String<br />
                    Dim datastr As String<br />
                    datastr = Application.StartupPath & "\V.mdf"<br />
                    logstr = Application.StartupPath & "\V_log.ldf"<br />
                    'Attach the database<br />
                    Dim sc As StringCollection<br />
                    sc = New StringCollection<br />
                    sc.Add(datastr)<br />
                    sc.Add(logstr)<br />
                    Try<br />
                        MainServer.AttachDatabase(DatabaseName, sc)<br />
                    Catch ex As Exception<br />
                        MsgBox(ex.Message.ToString)<br />
                    End Try<br />
                End If<br />
<br />
                If MainServer.Logins.Contains(LoginName) Then<br />
<br />
                Else<br />
                    Dim NewLogin As Login = New Login(MainServer, LoginName)<br />
                    NewLogin.LoginType = LoginType.SqlLogin<br />
                    NewLogin.DefaultDatabase = DatabaseName<br />
                    NewLogin.Create(LoginPassword)<br />
<br />
                    Dim db As New Database<br />
                    db = MainServer.Databases(DatabaseName)<br />
                    Dim DBUser As User = New User(db, UserName)<br />
                    DBUser.UserType = UserType.SqlLogin<br />
                    DBUser.Login = LoginName<br />
                    DBUser.Create()<br />
                    DBUser.AddToRole("db_Owner")<br />
<br />
                End If<br />
                .Disconnect()<br />
            End With

Colin Angus Mackay wrote:

I'm sure you can figure out the rest of the maths

int LiSeconds = 86400000;
float LfHours = (LiSeconds / 60) / 60; 

where replace(Pnumber,',','') = Pnumber

SELECT CONVERT(nvarchar(12), b.pexpiry_date, 101) as Expiry_Date FROM Table_A a
left join Table_B b with(NoLock)
on replace(a.pno,',','') = b.pnumber 

DECLARE @value AS VARCHAR(255)<br />
<br />
SET @value='78,567,9'<br />
<br />
SELECT REPLACE(@value,',','')