Comments by Nillo123 - CodeProject

Nillo123 28-Jun-13 10:39am View

Deleted

Try
Dim myParamArray2 As New ArrayList

Dim param2 As New OracleParameter()
param2.ParameterName = "pCODSUB"
param2.OracleDbType = OracleDbType.Varchar2
param2.Value = txt_cod.Text

myParamArray2.Add(param2)

Dim c As String
c = orcconn.ExecuteScalar("SELECT a.id, a.name FROM tbl.subscriber a where a.id = (:pCODSUB)", myParamArray2)
myParamArray2.Clear()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim myParamARR3 As New ArrayList

Dim param3 As New OracleParameter()
param3.ParameterName = "ptest"
param3.OracleDbType = OracleDbType.Varchar2
param3.Value = txt_user.Text

myParamARR3.Add(param3)

Dim d As DataTable

d = orcconn.ExecuteQueryDT("select a.id, v.name_user from " & _
"(SELECT a.id FROM tb.subscriber a ) a, " & _
"(select a.cod_sub, a.name_user, a.login from tb.perfil_user a) v " & _
"where a.id = ('" & txt_cod.Text & "') ", myParamArray2)
myParamARR3.Clear()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

If Not c Is Nothing Then
txt_cod.Text = Mid(c, 1, 8) ' code : 99999991
Label5.Text = "Exist!"
Label5.ForeColor = Color.White

Dim c1 As DataTable
txt_cod_sub.Text = Mid(c, 1, 12)
c1 = orcconn.ExecuteQueryDT("SELECT a.idcc, a.desc from tb.cc a where a.idsubs = ('" & txt_cod.Text & "')", Nothing)
cbx_cc.Enabled = True
cbx_cc.ValueMember = "idcc"
cbx_cc.DisplayMember = "desc"
cbx_cc.DataSource = c1

If cbx_cc.Text <> "" Then
Dim c2 As DataTable
txt_cod_sub.Text = Mid(c, 1, 16) '99999991002003
c2 = orcco.ExecuteQueryDT ("", nothing)
cbx_user_sub.Enabled = True
cbx_user_sub.ValueMember = "codsubuser"
cbx_user_sub.DisplayMember = "name_user"
cbx_user_sub.DataSource = c2

txt_cod_sub.Text = Mid(c, 1, 8)
bt_researsh.Enabled = True
Else
txt_cod_sub.Clear()
Label5.Text = "Code of subscriber: Nonexistent!"
Return
Exit Sub
End If

myParamArray2.Clear()
myParamARR3.Clear()
myParamArray2 = Nothing
End If
Catch ex As Exception

error-..---
End If

Me.Close()

End Try

Nillo123 28-Jun-13 10:24am View

yes

Nillo123 28-Jun-13 9:45am View

yes

Nillo123 28-Jun-13 9:41am View

sorry .. :( I did not express myself well, what I meant to right was:
"the problem is : If a select a model, like "M5", for example, from my comboBox_Model then in the next comboBox, comboBox_Engine, will appear all engine numbers, including the VW."

but what i want is : if i select M5 in my comboBox_model, then i will have access to other comboBox, comboBOx_Engine(and here will appear only and just the engines that i have in my table, with model M5) result = 10;147

Nillo123 28-Jun-13 8:20am View

model

Nillo123 26-Jun-13 7:11am View

If Len(cbx_USER_ass.Text) <> 0 Then
cbx_USER_ass.Text = Nothing
cbx_USER_ass.Enabled = False
End If

Nillo123 25-Jun-13 6:37am View

When this reached the comboBox1.items.clear --> this error appear, msg of exception:

An unhandled exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll
Additional information: Conversion from string "Data Source=..." to type 'Long' is not valid.

but thanks anyway :) ;)

Nillo123 5-Jun-13 7:28am View

Thanks for your help )
With best regards,
Nillo123.

Nillo123 22-May-13 5:40am View

Yes, but in the Bll..vb

Nillo123 3-May-13 6:13am View

thanks

Nillo123 3-May-13 6:13am View

thank you :)

Nillo123 29-Apr-13 9:32am View

thanks for helping me

Nillo123 26-Apr-13 12:19pm View

thanks ;)

Nillo123 26-Apr-13 12:15pm View

because i want to use this validation in my login and i must not make mistakes

Nillo123 26-Apr-13 6:42am View

thank you for your help!
;)

Nillo123 23-Apr-13 12:30pm View

do you understand?

Nillo123 23-Apr-13 12:29pm View

i don't get any message of error.
when i press save button on the toolbar -> opens a window-> saving the table like a normal filed.
for example: when you finished your work, in Microsoft Office Word, you click save, and pops up a window , where you want to save the file.. its exactly the same thing what happen to me, when i tried to save the table..

Nillo123 23-Apr-13 10:55am View

i just want to save the table..but i can't, and i don't no why ....

its a bug? :D

Nillo123 23-Apr-13 10:54am View

i did research of all most every thing about this problem, but they don't have the answer that i need.. for exemple:
http://msdn.microsoft.com/en-us/library/hh272695(v=VS.103).aspx

Nillo123 19-Apr-13 9:01am View

thanks for the help)

Nillo123 19-Apr-13 9:01am View

i am new at this..

Nillo123 19-Apr-13 8:17am View

can you give me an example , please.

Nillo123 19-Apr-13 8:16am View

if i put the : 'conn.ConnectionString = My.Settings.Database1ConnectionString' in try my problems beggins on connDispose()
Try
conn.ConnectionString = My.Settings.Database1ConnectionString
conn.Open()

cmd.Connection = conn
.
.
.
conn.Dispose()

msg error : Object reference not set to an instance of an object...

if i remove 'conn.ConnectionString = My.Settings.Database1ConnectionString' from the try.. he gives me the error on beggining...like you said before..

Nillo123 19-Apr-13 8:04am View

Imports System.Windows.Forms
Imports System.Data.SqlClient
Public Class Login

Private Sub butcancel_Click(sender As Object, e As EventArgs) Handles butcancel.Click
Me.Close()
End Sub
Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim passid As String

Private Sub butok_Click(sender As Object, e As EventArgs) Handles butok.Click

conn.ConnectionString = My.Settings.Database1ConnectionString

Nillo123 19-Apr-13 7:57am View

conn.ConnectionString = My.Settings.Database1ConnectionString

conn returns nothing
i checked if is null..and nothing happen

Nillo123 19-Apr-13 7:55am View

conn.ConnectionString = My.Settings.Database1ConnectionString

conn returns nothing

Comments by Nillo123 (Top 26 by date)