crear dsn desde una pagina asp.

[MIIGLESI]

alguien sabe como crear un dsn de sistema para sqlserver desde una pagina asp.

gracias

[Muzztein]

nos e si es que se pueda, pero si se puede conectar a una bd sin tener que usar dsn.
si ese es el caso, checa la biblioteca de funciones en este mismo foro.

[MIIGLESI]

GRACIAS MUZZTEIN, ya lo averigue, lo unico que son dsn de archivo.

[Muzztein]

pues comparta la info, porque yo nose como hacerlo asi

[MIIGLESI]

ok te pongo el codigo completo de como creo un dsn de archivo, una base de datos, una tabla y ademas inserto datos en esa tabla. Es probao y funciona. todn en sqlserver
un saludo

<%
'Creamos el objeto FileSystem para trabajar con archivos.
dim MM_general_STRING
dim MM_STRING

MM_general_STRING="filedsn=general.dsn"
MM_STRING="filedsn=bda28292212.dsn"

call base_datos()
call creafichero()
call cargadatos()
call muestra_datos()

Sub creafichero()
Set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists ("C:\Archivos de programa\Archivos comunes\ODBC\Data Sources\bda28292212.dsn") then
response.write ("Eres un torpedo")
else
Set arch = fs.CreateTextFile ("C:\Archivos de programa\Archivos comunes\ODBC\Data Sources\bda28292212.dsn", True )
arch.WriteLine("[ODBC]")
arch.WriteLine("DRIVER=SQL Server")
arch.WriteLine("UID=Administrador")
arch.WriteLine("Trusted_Connection=Yes")
arch.WriteLine("Network=DBNMPNTW")
arch.WriteLine("DATABASE=bda28292212")
arch.WriteLine("WSID=IVAN")
arch.WriteLine("APP=Microsoft Office XP")
arch.WriteLine("SERVER=IVAN")
end if
end sub

sub base_datos()
set Recordset1 = Server.CreateObject("ADODB.Command")
Recordset1.ActiveConnection = MM_general_STRING
Recordset1.CommandText = "CREATE DATABASE bda28292212"
Recordset1.CommandType = 1
Recordset1.CommandTimeout = 0
Recordset1.Prepared = true
Recordset1.Execute()
end sub
Sub cargadatos()
set Recordset1 = Server.CreateObject("ADODB.Command")
Recordset1.ActiveConnection = MM_STRING
Recordset1.CommandText = "CREATE TABLE pepe(id int identity(1,1), nombre nvarchar(50), primary key (id))"
Recordset1.CommandType = 1
Recordset1.CommandTimeout = 0
Recordset1.Prepared = true
Recordset1.Execute()
dim i
i=0
for i=0 to 10 step 1
if("potopto_" <> "") then Command1__paco = "potopto_"&cstr(i)

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_STRING
Command1.CommandText = "INSERT INTO dbo.pepe (nombre) VALUES ('" + Replace(Command1__paco, "'", "''") + "' ) "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
response.Write(i)
next
End Sub

sub muestra_datos()
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_STRING
Recordset2.Source = "SELECT * FROM dbo.pepe"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0

while not Recordset2.eof
response.Write((Recordset2.Fields.Item("nombre").V alue)&"<br>")
Recordset2.movenext
wend
Recordset2.Close()
Set Recordset2 = Nothing
end Sub
%>

[javier_pc]

Alguien sabe si este codigo se puede aplicar para una base de datos en access?

Es decir tengo mi pagina de internet hecha en dreamweaver, y mi base de datos en access.

Ya subi tanto mi base de datos como mi pagina a mi servidor remoto.

Ya puedo ver mi pagina en internet, pero no puedo guardar los datos que capturo, alguien podria ayudarme.

Javier.

[u_goldman]

si se puede crear un DSN de archivo, debe poder crearse un DSN de sistema que no? no se si mediante ASP o en su caso VB, habrá que investigar