Click here to Skip to main content
15,903,634 members
Home / Discussions / Visual Basic
   

Visual Basic

 
QuestionDesktop refresh on Timer_Tick Pin
The ANZAC16-May-07 22:32
The ANZAC16-May-07 22:32 
QuestionRe: Desktop refresh on Timer_Tick Pin
Sonia Gupta16-May-07 22:35
Sonia Gupta16-May-07 22:35 
AnswerRe: Desktop refresh on Timer_Tick Pin
Christian Graus17-May-07 2:37
protectorChristian Graus17-May-07 2:37 
AnswerRe: Desktop refresh on Timer_Tick Pin
Dave Kreskowiak17-May-07 4:48
mveDave Kreskowiak17-May-07 4:48 
GeneralRe: Desktop refresh on Timer_Tick Pin
The ANZAC17-May-07 11:27
The ANZAC17-May-07 11:27 
QuestionReading a file in the internet Pin
re infecta16-May-07 22:24
re infecta16-May-07 22:24 
AnswerRe: Reading a file in the internet Pin
ne0h17-May-07 2:12
ne0h17-May-07 2:12 
Question'prcInserting Expects parameter @Extension which was not Supplied" Pin
Vimalsoft(Pty) Ltd16-May-07 21:49
professionalVimalsoft(Pty) Ltd16-May-07 21:49 
i have an Error that says "Procedure 'prcInserting Expects parameter @Extension which was not Supplied"

Here is my whole code,i have excluded non impoertant ones.

Dim conn As Connection
Dim rrs As Recordset
Dim ComC As Command
Dim prm As Parameter
'String Variables
Dim strNum_key As String
Dim strExtension As Integer
Dim strCell_ID As Integer
Dim strActual_Extent As Double
Dim strLis_key As String
Dim strFunc_key As String
'*****************************
'Parameter Object

Dim prmNum_key As Parameter
Dim prmExtension As Parameter
Dim prmCell_ID As Parameter
Dim prmActual_Extent As Parameter
Dim prmLis_key As Parameter
Dim prmFunc_key As Parameter

'***********************
'Command Object
Dim ComNum_key As Command
Dim ComExtension As Command
Dim ComCell_ID As Command
Dim ComActual_Extent As Command
Dim ComLis_key As Command
Dim ComFunc_key As Command



Private Sub Form_Load()
Set conn = New Connection
Set rrs = New Recordset
Set ComC = New Command
'Initializing The Command Objects
Set ComNum_key = New Command
Set ComExtension = New Command
Set ComCell_ID = New Command
Set ComActual_Extent = New Command
Set ComLis_key = New Command
Set ComFunc_key = New Command

rrs.CursorLocation = adUseServer
rrs.CursorType = adOpenDynamic
rrs.LockType = adLockOptimistic


With conn
.Provider = "SQLOLEDB"
.ConnectionString = "User ID =sde;Password=topology;" & _
"Data Source =SGIICORNETGS01;" & _
"Initial Catalog = Tshwane_Valuations"
.Open
End With

'Initialize the active Connection, Commandtext and Commandtype

With ComNum_key
.ActiveConnection = conn
.CommandText = "prcInserting"
.CommandType = adCmdStoredProc
End With


With ComExtension
.ActiveConnection = conn
.CommandText = "prcInserting"
.CommandType = adCmdStoredProc
End With

With ComCell_ID
.ActiveConnection = conn
.CommandText = "prcInserting"
.CommandType = adCmdStoredProc
End With

With ComActual_Extent
.ActiveConnection = conn
.CommandText = "prcInserting"
.CommandType = adCmdStoredProc
End With

With ComLis_key
.ActiveConnection = conn
.CommandText = "prcInserting"
.CommandType = adCmdStoredProc
End With

With ComFunc_key
.ActiveConnection = conn
.CommandText = "prcInserting"
.CommandType = adCmdStoredProc
End With
'Accepting User input from a form

strNum_key = Val(Trim(txtnumkey.Text))
strExtension = Val(Trim(txtextension.Text))
strCell_ID = Val(Trim(txtcellid.Text))
strActual_Extent = Val(Trim(txtactualextent.Text))
strLis_key = Val(Trim(txtliskey.Text))
strFunc_key = Val(Trim(txtfunckey.Text))

'************************************************* *****************
'Initializing the Parameter Object
'************************************************* ****************
Set prmNum_key = ComNum_key.CreateParameter("Num_Key", adBigInt _
, adParamInput)

Set prmExtension = ComExtension.CreateParameter("Extension", adBSTR _
, adParamInput, , txtextension.Text)

Set prmCell_ID = ComCell_ID.CreateParameter("Cell_ID", adBSTR _
, adParamInput, , txtcellid.Text)

Set prmActual_Extent = ComActual_Extent.CreateParameter("Actual_Extent", adBSTR _
, adParamInput, , txtactualextent.Text)

Set prmLis_key = ComLis_key.CreateParameter("Lis_Key", adBSTR _
, adParamInput, 50, txtliskey.Text)

Set prmFunc_key = ComFunc_key.CreateParameter("Func_key", adBSTR _
, adParamInput, 8, txtfunckey.Text)

'************************************************* *******************
'Appending the Parameter
'************************************************* *******************
ComNum_key.Parameters.Append prmNum_key
ComExtension.Parameters.Append prmExtension
ComCell_ID.Parameters.Append prmCell_ID
ComActual_Extent.Parameters.Append prmActual_Extent
ComLis_key.Parameters.Append prmLis_key
ComFunc_key.Parameters.Append prmFunc_key

'************************************************* ***************
'The Parameter Object has a property called value, you need to Assign
'the value entered by the User to this value and the Value of the user is entered
' in a string type variable
prmNum_key.Value = strNum_key
prmExtension.Value = strExtension
prmCell_ID.Value = strCell_ID
prmActual_Extent.Value = strActual_Extent
prmLis_key.Value = strLis_key
prmFunc_key.Value = strFunc_key

'************************************************* *************************
'Executing The Command Object

ComNum_key.Execute
ComExtension.Execute
ComCell_ID.Execute
ComActual_Extent.Execute
ComLis_key.Execute
ComFunc_key.Execute

Vuyiswa

AnswerRe: 'prcInserting Expects parameter @Extension which was not Supplied" Pin
Dave Kreskowiak17-May-07 4:39
mveDave Kreskowiak17-May-07 4:39 
Questionvb6 to vb.net Pin
Sonia Gupta16-May-07 21:16
Sonia Gupta16-May-07 21:16 
AnswerRe: vb6 to vb.net Pin
Christian Graus16-May-07 22:34
protectorChristian Graus16-May-07 22:34 
GeneralRe: vb6 to vb.net Pin
Sonia Gupta16-May-07 23:53
Sonia Gupta16-May-07 23:53 
AnswerRe: vb6 to vb.net Pin
ChandraRam16-May-07 23:47
ChandraRam16-May-07 23:47 
GeneralRe: vb6 to vb.net Pin
Sonia Gupta16-May-07 23:50
Sonia Gupta16-May-07 23:50 
GeneralRe: vb6 to vb.net Pin
Christian Graus17-May-07 0:04
protectorChristian Graus17-May-07 0:04 
QuestionVB.NET Connect to Server Pin
Socheat.Net16-May-07 21:02
Socheat.Net16-May-07 21:02 
AnswerRe: VB.NET Connect to Server Pin
Sonia Gupta16-May-07 21:18
Sonia Gupta16-May-07 21:18 
GeneralRe: VB.NET Connect to Server Pin
Socheat.Net16-May-07 21:30
Socheat.Net16-May-07 21:30 
AnswerRe: VB.NET Connect to Server Pin
Sonia Gupta16-May-07 21:35
Sonia Gupta16-May-07 21:35 
QuestionRe: VB.NET Connect to Server [modified] Pin
Socheat.Net16-May-07 21:51
Socheat.Net16-May-07 21:51 
GeneralRe: VB.NET Connect to Server Pin
Sonia Gupta16-May-07 22:25
Sonia Gupta16-May-07 22:25 
GeneralRe: VB.NET Connect to Server Pin
Socheat.Net16-May-07 22:42
Socheat.Net16-May-07 22:42 
QuestionRe: VB.NET Connect to Server Pin
Sonia Gupta16-May-07 23:08
Sonia Gupta16-May-07 23:08 
AnswerRe: VB.NET Connect to Server Pin
Socheat.Net16-May-07 23:22
Socheat.Net16-May-07 23:22 
AnswerRe: VB.NET Connect to Server Pin
Socheat.Net16-May-07 23:24
Socheat.Net16-May-07 23:24 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.