Autor
|
Tema: Traductor con bases de datos (Leído 8,335 veces)
|
Roboto
|
copy/paste del codigo de la aplicacion k programaste
|
|
|
En línea
|
|
|
|
birdez
Desconectado
Mensajes: 114
|
LA APLICACIÓN DEBE TRADUCIR FRASES PRO PRIMERO QUIERO COMPROBAR SI SE TRADUCIR PALABRAS SUELTAS PARA MIRAR DESPUÉS A TRADUCIR FRASES QUE TENGAS SEPARADORES COMO ESPACIOS, PUNTOS, COMAS Y PUNTOS Y COMAS QUE AUN NO LO CONSEGUÍ HACER :S SINO COMPRENDES CUALQUIER COSA DIMELO SIN PROBELMAS GRACIAS
Public Class Form1 Dim añadirpalaras As New Dialog1
Private Sub PalabrasBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Me.Validate() Me.PalabrasBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.DiccionarioDataSet)
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 'TODO: esta línea de código carga datos en la tabla 'DiccionarioDataSet.Palabras' Puede moverla o quitarla según sea necesario. Me.PalabrasTableAdapter.Fill(Me.DiccionarioDataSet.Palabras)
ComboBox1.Items.Add("Seleccione un idioma") ComboBox1.Items.Add("Español") ComboBox1.Items.Add("Ingles")
ComboBox1.SelectedIndex = 0 End Sub
Private Sub BotonSalir_Click(sender As System.Object, e As System.EventArgs) Handles BotonSalir.Click Me.Close() End Sub
Private Sub ButtonAñadir_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAñadir.Click añadirpalaras.ShowDialog() End Sub
Private Sub BotonTraducir_Click(sender As System.Object, e As System.EventArgs) Handles BotonTraducir.Click Dim PalabraTxt1 As String
Dim palabra As String
PalabraTxt1 = TextBox1.Text
If String.IsNullOrEmpty(TextBox1.Text) Then MessageBox.Show("Debe introducir un texto para traducirlo") TextBox1.Focus()
ElseIf ComboBox1.SelectedItem = "Seleccione un idioma" Then
MessageBox.Show("Debe elegir un idioma original") ElseIf ComboBox1.SelectedItem = "Español" Then
If RadioButtonIng.Checked = True Then If PalabrasTableAdapter.FillByPalabrasIngles(Me.DiccionarioDataSet.Palabras, PalabraTxt1) Then
'AQUI ES DONDE TENGO QUE PONER QUE EL TEXTBOX ESCRIBA LA PALABRA INGLESA Else MessageBox.Show("La palabra NO existe") End If Else
MessageBox.Show("Debe elegir un idioma para traducir") End If
ElseIf ComboBox1.SelectedItem = "Ingles" Then
If RadioButtonEsp.Checked = True Then
If PalabrasTableAdapter.FillByPalabrasIngles(Me.DiccionarioDataSet.Palabras, TextBox1.Text) Then MessageBox.Show("La palabra existe") Else
End If
Else
MessageBox.Show("Debe elegir un idioma para traducir") End If End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = "Seleccione un idioma" Then RadioButtonEsp.Enabled = False RadioButtonIng.Enabled = False End If
If ComboBox1.SelectedItem = "Español" Then RadioButtonEsp.Enabled = False RadioButtonIng.Enabled = True End If
RadioButtonIng.Checked = False
If ComboBox1.SelectedItem = "Ingles" Then RadioButtonIng.Enabled = False RadioButtonEsp.Enabled = True End If
RadioButtonEsp.Checked = False
End Sub
Private Sub ButtonLimptextotraducir_Click(sender As System.Object, e As System.EventArgs) Handles ButtonLimptextotraducir.Click TextBox1.Clear() End Sub
Private Sub ButtonLimpiarTextTraducido_Click(sender As System.Object, e As System.EventArgs) Handles ButtonLimpiarTextTraducido.Click TextBox2.Clear() End Sub
End Class
|
|
|
En línea
|
|
|
|
Roboto
|
pero las dudas no las tenias con la base de datos y la sql?¿?¿? faltan esos codigos
|
|
|
En línea
|
|
|
|
birdez
Desconectado
Mensajes: 114
|
la secuencia q puse en el dataset para crear el fill es la q me dijiste
SELECT Ingles FROM Palabras WHERE Español = ?
Y MI DUDA AHORA ES DODNE PONER LO DE:
If RadioButtonIng.Checked = True Then If PalabrasTableAdapter.FillByPalabrasIngles(Me.DiccionarioDataSet.Palabras, PalabraTxt1) Then
'AQUI ES DONDE TENGO QUE PONER QUE EL TEXTBOX ESCRIBA LA PALABRA INGLESA Else MessageBox.Show("La palabra NO existe") End If Else
MessageBox.Show("Debe elegir un idioma para traducir") End If
DONDE PONE LO DE AQUI ES DONDE.....
hay como puedo poner para referirme a la palabra inglesa la palabra en español me la encuentra xq si la imprimo me la imprime pro la ingles no consigo sacarla no se q tenog que poner esa es mi duda
sabes lo q quiero decirte?
|
|
|
En línea
|
|
|
|
birdez
Desconectado
Mensajes: 114
|
Sabes lo q quiero decirte?
|
|
|
En línea
|
|
|
|
Roboto
|
la sql te tiene k devolver una palabra en ingles. solo tienes k ponerla en el textbox.Text y ya esta.
no recuerdo ahora mismo las instrucciones pork cada personas accede de forma diferente a la base de datos. yo por ejemplo hacia dataReaders,guardaba los datos dentro y luego accedia ( C#) tu lo haces con un dataset,asi k el codigo k tienes k poner no se decirtelo al 100%.
solo tienes k acceder a tu dataset,pillarle el campo donde guardas la palabra en ingles y mostrarla en el textbox.
p.d: esas cosas tendrias k saberlas,como has conseguido aprobar acceso a datos?¿?¿?¿?¿?¿?¿
|
|
|
En línea
|
|
|
|
birdez
Desconectado
Mensajes: 114
|
no he a aprobado accesos a daros x eso os pregunto que como se hace xq no se hacer lo q te pido jaja
no se acceder a esa columna desde el dataset si me dices como se puede hacer lo intento y te sigo comentando como lo he hecho gracias
|
|
|
En línea
|
|
|
|
Roboto
|
no te puedo ayudar mucho pork hace años k no toco esas cosas. lo k si te puedo dar es esto. es un codigo de cuando yo acabe el modulo,k programe en VB,pancima eso. no tienes ni k usar sentencias sql,solo tienes k navegar atraves del dataset o lo k kiera k sea. cuando agregas una base de datos al vb,la arrastras al formulario y el propio visual lo hace todo. eso es lo k hacia,luego con las instrucciones k ves ahi,recorro el dataset como si fuera un array. http://s2.subirimagenes.com/privadas/1856418sin-ttulo.jpgmas k eso no te puedo ayudar,hay tutoriales en google de como hacerlo p.d: ese codigo lo k hace es k tu metes un usuario y comprueba si existe ese usuario
|
|
« Última modificación: 3 Junio 2012, 20:11 pm por l Galo l »
|
En línea
|
|
|
|
birdez
Desconectado
Mensajes: 114
|
no puedo ver la imagen me sale q no a sigo encontrada?
|
|
|
En línea
|
|
|
|
Roboto
|
no puedo ver la imagen me sale q no a sigo encontrada? dale a intro,en la url,copiala y dale a intro.
|
|
|
En línea
|
|
|
|
|
|