---

saludos tolotoco, seguro me podras una ayudita soy nuevo en vs.net 2008, mi problema es que deseo crear un reporte en cristal report y que de este salga un subreport, como hago esto, si puedes algun ejemplo sera bienvenido, o algun lugar para principiantes como yo, pues la verdad que no tengo la mas minima idea de como hacerlo, desde vb.net 2008 y sqlserver 2008

---

Fernando deseo enviarte la aplicación y me rechaza tu direccion de correo, quiero responder y me dice que no tengo permisos

---

Saludos Fernando
Mira yo genero mi reporte de la siguiente manera:
1.- genero un dataset con los datos que necesito
2.- Luego genero el reporte usando los datos del dataset con ADO:NET datasets
3.- genere un formulario en el cual tengo un crystalreportviewer y un crystalreportsource.
Cuando ejecuto la aplicación me pide :
servername
databasename
id
password
el dataset genere usando un id y password del sqlserver2005
Por favor ayúdame fernando con el codigo en vb.net que necesitaría para que no me pida estos datos Gracias de antemano.

---

que honda mi cuate primero que nada espero que este bien, y ahora si otra vez molestandote ya pude realizar la conexion gracias, pero bueno ahora vengo otra vez molestandote con otra duda aver si me la podias aclarar.

lo que para es esoy haciendo una pequeña base de datos que contiene una ventana llamada almacen la cual tiene de estidades

id de almacen
nombre de la pieza
modelo
existenxia

y tengo una base de datos que esta realizada asi

CREATE DATABASE PALMACEN
USE PALMACEN

CREATE TABLE ALMACEN(
ID_ALMA INT PRIMARY KEY NOT NULL,
NOM_PIEZA VARCHAR(30))

CREATE TABLE MODELOS(
ID_ALMA INT FOREIGN KEY REFERENCES ALMACEN(ID_ALMA),
ID_MOD INT PRIMARY KEY NOT NULL,
MODELO VARCHAR(30),
EXISTENCIA INT)

segun yo esta normalizada y ahora lo que quiero hacer es llenar los campor ya que estoy utlizando dos tablas para llenar una ventana e visto algo y lo estoy intentanto hacer con un inner join como vez ?.

pero no se como delararlo en vb.net

espero que me puedas audar me dijiste que te mandara un correo para que me anexaras en tu messenger pero no ecuento tu direccion de correo por si quieres que te detalle mas bueno nos vemos.

---

VOY A CHECAR EL LINK YA ESTUBE CHECANDO UNCAS COSILLAS PARA VER SI ME QUEDA, YA SI NO ME QUETA TE ESTARE MOLESTANDO DE NUEVO PERO MUCHAS GRACIAS POR EL INTERES Y QUE ESTES BIEN, NOS ESTAMOS MIRANDO ADIO2

---

hola gracias por tu atension.
bueno la verdad apenas esoy empezando con este lenguaje y estoy buscando la forma de como resolver el problema y encontre este codigo para conectar.


este codigo va en un combobox el cual busca el nombre del servidor

Private Sub cboInstancias_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboInstancias.SelectedIndexChanged
Dim bases() As String = basesDeDatos(cboInstancias.Text)
Me.cboBases.Items.Clear()
If Not bases Is Nothing Then
Me.cboBases.Items.AddRange(bases)
End If
' Seleccionamos la primera base
If Me.cboBases.Items.Count > 0 Then
cboBases.SelectedIndex = 0
End If

End Sub

este codigo va en el boton conectar

Private Sub btnConectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConectar.Click
' Conectar y mostrar los datos
'
' La cadena de conexión
'"data source="& cboInstancias.Text & "; initial catalog=" & cboBases.Text & "; integrated security=yes"
Dim sCnn As String = "Server=" & cboInstancias.Text & "; " & _
"database=" & cboBases.Text & "; integrated security=yes"

Dim cnn As New SqlConnection(sCnn)
If existeTabla(cnn, "Prueba") = False Then
'MessageBox.Show("NO existe la tabla Prueba, que es la usada para este ejemplo.")
'Exit Sub
If MessageBox.Show("NO existe la tabla Prueba, que es la usada para este ejemplo." & vbCrLf & _
"¿Quieres crearla?", "No existe la tabla", _
MessageBoxButtons.YesNo) = DialogResult.Yes Then
If crearTablaPrueba() = False Then
Exit Sub
End If
Else
Exit Sub
End If
End If

' La cadena de selección
Dim sSel As String = "SELECT * FROM Prueba ORDER BY ID"
' Para traer solo los registros entre dos fechas
'sSel = "SELECT * FROM Prueba WHERE (FechaAlta >= '2006/02/01' AND FechaAlta <= '2006/02/05')"
'
' Comprobar si hay algún error
Try
' Crear un nuevo objeto del tipo DataAdapter
da = New SqlDataAdapter(sSel, cnn)
' Crear los comandos de insertar, actualizar y eliminar
Dim cb As New SqlCommandBuilder(da)
' Como hay campos con caracteres especiales,
' al usarlos incluirlos entre corchetes.
cb.QuotePrefix = "["
cb.QuoteSuffix = "]"
' Asignar los comandos al DataAdapter
' (se supone que lo hace automáticamente, pero...)
da.UpdateCommand = cb.GetUpdateCommand()
da.InsertCommand = cb.GetInsertCommand()
da.DeleteCommand = cb.GetDeleteCommand()
'
' Esta base de datos usa el ID con valores automáticos
da.MissingSchemaAction = MissingSchemaAction.AddWithKey
'
dt = New DataTable
' Llenar la tabla con los datos indicados
da.Fill(dt)
'
Me.GroupBox1.Enabled = True
Me.GroupBox1.Text = "Conexión realizada"
' Habilitar los controles
For Each c As Control In Me.GroupBox1.Controls
c.Enabled = True
Next

' Y mostrar el primer registro
If dt.Rows.Count > 0 Then
btnFirst_Click(Nothing, Nothing)
Else
fila = -1
Me.btnActualizar.Enabled = True
Me.btnEliminar.Enabled = False
End If

Catch ex As Exception
MessageBox.Show("ERROR al conectar o recuperar los datos:" & vbCrLf & _
ex.Message, "Conectar con la base", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try


End Sub

o tambien lo intente hacer mediante odbc y esta es la cadena de conexion

...............................
o tambien lo intente por medio de el ODBC

Class Form1:
Imports System.Data
Imports Microsoft.Data.ODBC



botón SQL Server:
Dim cn As OdbcConnection
cn = New OdbcConnection("DRIVER={SQL Server};SERVER=dany\SQLEXPRESS ;UID=sa;" & _
"PWD=sasa;DATABASE=ADO_PRACTIC;")

Dim mystring As String = "select * from tblContacts"
Dim cmd As OdbcCommand = New OdbcCommand(mystring)
cn.Open()
MsgBox("Conectado")
cn.Close()

el nombre del equipo: dany.
nombre del servidor sql:dany\SQLEXPRESS
base de datos: ADO_PRCTIC

la verdad es que no se si se pueda con los express esta conexion o tengo que cambiar con los originales

---

hola amigo mira lo que ppasa es que estoy realizando una proyecto con vb.net 2005 y sql server 2005 y la verdad es que no puedo realizar la conexion con la base de datos y quisiera saber i me podrias ayudar la estoy conectando mediante ADO bueno te lo agradeceria mucho gracias y salu2

---

hola ammigo no se si me podrias ayudar lo que pasa es que estoy haciendo una conexion con vvb,net 2005 y sql server 2005 expres pero no puedo realizar la conexion la esoy realizando mediante ado y al coectarla me aroja un error de que no esta activada este servicio error 40 bueno algo asi y quisiera saber si me podrias ayudar te lo agradeseria demaciado

---

Hola Fernando, mi consulta es la siguiente:
Sabes como hacer para calcular la edad de una persona en una formula de crystal report apartir de la fecha de nacimiento.

Muchas Gracias. Dario.

---

Hola Fernando, mi consulta es la siguiente:
Estoy desarrollando una aplicación winform en visual studio 2005, y revisando por ahí y por acá, di con un código tuyo sobre poder editar en archivo pdf desde la aplicación, al probar tu ejemplo con el archivo pdf que viene con el archivo de la descarga funciona perfecto, pero si pruebo este código con otro archivo pdf no se puede realizar ningún cambio, Aquí viene mi pregunta: el archivo pdf debe venir con algo especial al momento de ser creado????