ASP.NET

archananaresh wrote:

let me know is it possible to lock Netwok Connections And My Network Places as soon i start the system.if user try to to click on these .....it should not open ...until i give password or permission to it


Using VB.Net Windows Application or C#.

neha001 wrote:

how to make a project on blog creation in asp .net

Member 4772457 wrote:

is there any way,to upload a file on a server without file uploader control or any other control

Member 4772457 wrote:

whenever someone open my web site, so i want a particular file from his system on my server

Member 4772457 wrote:

its urgent

Sandraa wrote:

I don't know import a sheet of excel to sql-server with my present connection.

Sandraa wrote:

And if is possible can use my present conection to sql server from web.config

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Partial Class Formularios_ImportarExcel
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim connString As String = _
            "Provider = Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source = C:\test.xls;" & _
            "Extended Properties = 'Excel 8.0;HDR=Yes'"

        Dim cnn As New OleDbConnection(connString)

        Try
            Dim sql As String = _
                "SELECT * INTO T_Recibos " & _
                "IN ''[ODBC;DRIVER={SQL Server};" & _
                     "Server=localmachine;" & _
                     "Database=NAMEDATABASE;" & _
                     "UID=Sandra;" & _
                     "PWD=Sandra]" & _
                "FROM [Hoja1$]"

            Dim cmd As New OleDbCommand(sql, cnn)

            cnn.Open()

            Dim n As Integer = cmd.ExecuteNonQuery()

            Label1.Text = "Número de registros afectados: " & n.ToString

        Catch ex As OleDbException
            Label1.Text = (ex.Errors(0).Message)

        Catch ex As Exception
            Label1.Text = (ex.Message)

        Finally
            cnn.Close()
            cnn = Nothing

        End Try
    End Sub

"SELECT * INTO T_Recibos " & _                "IN ''[ODBC;DRIVER={SQL Server};" & _                     "Server=localmachine;" & _                     "Database=NAMEDATABASE;" & _                     "UID=Sandra;" & _                     "PWD=Sandra]" & _                "FROM [Hoja1$]"