|
I've told you three times what you have to do.
I give up. You're simply not listening, or your not doing any experimentation to test what I'm telling you.
If you don't put the effort into it, why should we?
[EDIT]
Wait a minute! Sorry! My bad. I thought you were asking the same question for a fourth time.
You don't need all of this:
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
You're creating 6 seperate sql commands and adding a single parameter to each. You need to create just ONE sql command, then add all 6 of your parameters to the one command. Also, you've managed to convert the input from the textboxs to numbers, but you didn't use these numbers in the sql parameters. You, AGAIN, assigned the strings to the parameters. (This is why I thought you asked the same question for a forth time!) Those are really BAD variable names BTW.
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))
Set sqlCommand = New Command
Set prmNum_key = sqlCommand.CreateParameter("Num_Key", adBigInt _
, adParamInput, strNum_key )
Set prmExtension = sqlCommand.CreateParameter("Extension", adBSTR _
, adParamInput, , strExtension)
Set prmCell_ID = sqlCommand.CreateParameter("Cell_ID", adBSTR _
, adParamInput, , strCell_ID)
Set prmActual_Extent = sqlCommand.CreateParameter("Actual_Extent", adBSTR _
, adParamInput, , strActual_Extent)
Set prmLis_key = sqlCommand.CreateParameter("Lis_Key", adBSTR _
, adParamInput, 50, strLis_key)
Set prmFunc_key = sqlCommand.CreateParameter("Func_key", adBSTR _
, adParamInput, 8, strFunc_key)
|
|
|
|
|
Is there any equivalant vb.net code of the following vb6 code
Dim wp As WINDOWPLACEMENT
i was getting error .no corection was suggested.
is there any framework class whose reference is needed in my program?
|
|
|
|
|
Nilish wrote: WINDOWPLACEMENT
This is probably a class, I doubt it's intrinsic to VB6.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
|
Nilish wrote: Is there any equivalant vb.net code of the following vb6 code
Dim wp As WINDOWPLACEMENT
WINDOWPLACEMENT is a Win32 API structure - should be available to you in .NET too... maybe you just need to import a DLL into your app.
|
|
|
|
|
Yes , it was an api.I just got to know.I downloaded a chunk of code from internet.I mistakenly , downloded some incomplete code.
well Thanks for the reply.
|
|
|
|
|
Nope - you generally have to match the structure of Win32 structs within .NET code, there's no dll that has them.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
I currently using VB.NET, database is stored on sever, can i use vb.net to get database from server?
Socheat
................
|
|
|
|
|
in the connection string , give the path of the server
|
|
|
|
|
Can u give me an example?
................
|
|
|
|
|
If u r using MS-Access
this kind of connection string is required
dim connectionstring as string=
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\servername\d\database.mdb"
|
|
|
|
|
How can i get servername, if someone change server name it will automatic change, what does "d" stand for?
-- modified at 4:24 Thursday 17th May, 2007
-- modified at 4:29 Thursday 17th May, 2007
................
|
|
|
|
|
Sir,
d is the drive name (d drive) it was merely considered for an example basis.
if somebody changes the serve name then change the connection string.
simple!!!
|
|
|
|
|
How come, whether the application is installed on client machine, I want to change it automatically.
................
|
|
|
|
|
sorry i am not getting u.Can u please explain?
|
|
|
|
|
I mean that i had a app and installed on client machine with network group, in app i used the server name. Example "Socheat". if you someone change server name it will automatically change so, how can i do? beside not rename server name
................
|
|
|
|
|
I mean that my app is installed on client machine with the server name "SOCHEAT", if someone change server name, i would like it change automatically.
................
|
|
|
|
|
do one thing
create an extra form
invoke three textboxes there
1 for location where the database is located
2 for the username
3 for password
whenever u want to change these terms , pass there parameters to the connection string.
Simple !!!!!!!!!!!!
|
|
|
|
|
Give me an example if u can
................
|
|
|
|
|
if u know the functions , u can do it pretty easily.
|
|
|
|
|
Sorry to disturb you again, the connection string with the server name it will define whether found network or not?
................
|
|
|
|
|
Hi,
I have a drive called "Games".
How can i get that label in vb.net? (volume label?)
Thanks in regard,
--Zaegra--
|
|
|
|
|
For Each str As System.IO.DriveInfo In DriveInfo.GetDrives()<br />
MessageBox.Show(str.VolumeLabel)<br />
Next
|
|
|
|
|
Set a reference to Microsoft Scripting Runtime (COM)
Add
Imports Script
Then:
Dim fso as New FileSystemObject
Dim drv as Drive
drv=fso.GetDrive("C")
MessageBox.Show ("Volume: " & drv.VolumeName)
Vuyiswa
|
|
|
|
|
Thanks
|
|
|
|