Trabajo

Public Class MensajeSalida

Private Sub ComboBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cboContactos.MouseClick
CallMenus.CBD_Click(sender, e)
Menus.CONSULTA.CommandText = "select * from contactos"
Menus.leer = Menus.CONSULTA.ExecuteReader 'se executa la consulta
cboContactos.Items.Clear()cbocontactosNumero.Items.Clear()
While Menus.leer.Read
cboContactos.Items.Add(Menus.leer(1) & " " & Menus.leer(0))
cbocontactosNumero.Items.Add(Menus.leer(1))End While
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboContactos.SelectedIndexChanged

End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call Menus.CBD_Click(sender, e)
Menus.CONSULTA.CommandText = "insert intosalida (numero_receptor, mensaje, fecha) values ('" & cbocontactosNumero.Items(cboContactos.SelectedIndex) & "','" & TextBox1.Text & "','" & DateTimePicker1.Value.Date & "')"
Menus.leer =Menus.CONSULTA.ExecuteReader 'se executa la consulta
Menus.leer.Close()
MessageBox.Show("SE HA GUARDADO EL MENSAJE", "GUARDADO", MessageBoxButtons.OK, MessageBoxIcon.Information)Call Menus.CBD_Click(sender, e)
Menus.CONSULTA.CommandText = "update contador set salida=salida +1 where id_contador=1"
Menus.leer = Menus.CONSULTA.ExecuteReader 'se executa laconsulta
Menus.leer.Close()
'*******************************************************
Call Menus.CBS_click(sender, e) 'servidor
'consualta de saldoMenus.CONSULTA.CommandText = "select saldo from numero_celular where numero = '" & emisor.text & "'"
Menus.leer = Menus.CONSULTA.ExecuteReader 'se executa la consulta
Menus.leer.Read()...