|
I am reading a word document in a byte stream and trying to insert it in sql server table (field is varbinary type). The byte array contains 1000s elemets but in table it writes only '0xD0'.
Any idea what's wrong with it?
Thanks
Nas
|
|
|
|
|
manisghouri wrote: Any idea what's wrong with it?
Nope. Perhaps if you showed us what your code it we might be able to see what it wrong with it.
|
|
|
|
|
'To add document
'---------------
Private Function AddRequest(ByVal DocId As String, ByVal DocUSer As String _
, ByVal DocTitle As String, ByVal DocSubject As String, ByVal fileName As String) as Boolean
Dim cmd As New SqlCommand
Dim dr As SqlDataReader
' Read the Data into the Byte Array
Dim fStream As New FileStream(fileName, FileMode.Open, FileAccess.Read)
Dim DocData(fStream.Length) As Byte
fStream.Read(DocData, 0, CInt(fStream.Length))
fStream.Close()
With cmd
.CommandType = CommandType.StoredProcedure
.CommandText = "sp_AddDocument"
.Connection = Conn
Dim para1 As SqlParameter = .Parameters.Add("@DocId", SqlDbType.Varchar)
Dim para2 As SqlParameter = .Parameters.Add("@DocUser", SqlDbType.Int)
Dim para3 As SqlParameter = .Parameters.Add("@DocTitle", SqlDbType.VarChar)
Dim para4 As SqlParameter = .Parameters.Add("@DocData", SqlDbType.VarBinary)
para1.Value = DocId
para2.Value = DocUser
para3.Value = DocTitle
para4.Value = DocData
End With
Try
dr = cmdBrochureRequest.ExecuteReader
With dr
If .HasRows Then
While .Read
DocStatus = .Item(0)
isDone = True
End While
Else
MsgBox("No Document status retrieved", MsgBoxStyle.Critical, appTitle)
isDone = False
End If
End With
cmd.Parameters.Clear()
cmd = Nothing
dr.Close()
Catch ex As Exception
MsgBox("Error while inserting document into database:" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical, appTitle)
isDone = False
End Try
If isDone = True Then
isDone = AddRequestDetail(RequestId)
End If
Return isDone
End Function
'To read document
'---------------
Private Function OpenDocument(ByVal DocId as string)
Dim cmd As New SqlCommand
Dim dr As SqlDataReader
With cmd
.CommandText = "sp_GetDocument "
.CommandType = CommandType.StoredProcedure
.Connection = ConnPIMPS
.Parameters.AddWithValue("@DocId", DocId)
End With
Try
dr = cmd.ExecuteReader
dr.Read()
Dim FileData(dr.GetBytes(0, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte
dr.GetBytes(0, 0, FileData, 0, FileData.Length)
DisplayDocument(FileData)
dr.close
Catch ex As Exception
MsgBox("Error while opening document :" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical, AppTitle)
Exit function
End Try
Private Sub DisplayDocument(ByVal arrInput() As Byte)
Dim i As Integer
Dim sOutput As New StringBuilder(arrInput.Length)
For i = 0 To arrInput.Length - 1
If Not CType(arrInput(i), Byte).ToString = 0 Then
sOutput.Append(Chr(arrInput(i)))
End If
Next
RichTextBox1.text = sOutput.ToString()
End Sub
Do you think it is what i required to save word document in sql server table,
regards
Nas
|
|
|
|
|
Hi all!
How can i fill color on Detail section of data report <vb6>.Please help .
Thanks.
|
|
|
|
|
I've got three comboboxes. ComboBox1 has two selections, (a) and (b). I can't figure out how to go about to pick one and driving ComboBox2. I'd like to pick (a) from ComboBox1 and have ComboBox2 know that when I pick (a), the associated data selections would be selectable in this ComboBox. Both (a) and (b)have specific data tied to each of them and I need it to know how to differentiate.
When I pick from ComboBox2, this will also drive what I can select in ComboBox3, but I need help getting started first.
Thanks.
|
|
|
|
|
In this event of combobox1 'combobox1_selectedindexchanged' determine which was selected and call the appropriate routine to load/replace the contents of combobox2.
|
|
|
|
|
Thanks.
I hate to ask too much, but I am rusty (2 years since coding of any form). Could you please explain "which was selected and call the appropriate routine to load/replace the contents of combobox2"?
I appreciate the help.
|
|
|
|
|
When the event fires, you need to check combo1 for what the user selected. Then react accordingly. There are 3 properties you can check to do this. Once you know what they selected, then call the appropriate routine to load the correct values in combo2 that belong to the selection they made in combo1
the properties:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex 'if you hardcoded the contents of combo1
Case 0
Call FillCombo2WithATypes()
Case 1
Call FillCombo2WithBtypes()
End Select
Select Case ComboBox1.SelectedText 'what they see in the combo list
Case "A - type "
Call FillCombo2WithATypes()
Case "B - type "
Call FillCombo2WithBtypes()
End Select
Select Case ComboBox1.SelectedValue 'the code for what they see
Case "A"
Call FillCombo2WithATypes()
Case "B"
Call FillCombo2WithBtypes()
End Select
End Sub
|
|
|
|
|
I am using windows datagridview. I have added datagridtextboxcolumn as first column and the next column and remaining columns are from database. When I run the application 2nd column is highlighted, instead of first column. I want to highlight first column. I am using "Row header selection mode". I think this behaves when row header selected then selects entire row otherwise it behaves like "cell select" mode which selects the cell. Since I am adding datagridtextboxcolumn as my first column , it is highlighting 2nd column. Please advise how to select first column i.e datagridtextbox column instead of 2nd row. Also, I still need rowheader selection mode.
I appreciate your help!
Thanks,
Nilika
|
|
|
|
|
Hi All,
I want to create a playlist in WMP, so that the user can click "next" to go to the next video clip and "previous" to go back.
Could anybody advise me on 'HOW' to do this? or direct me to a tutorial. Ive searched the web and cannot find one.
Thanks in Advance.
Jaidev
|
|
|
|
|
i use arrays in vb.net
but i have a problem in the dimension
ex :
dim a() as integer
a(0)=new integer
gives error
i don't want to use arraylist because i dound inutil to do the cast
|
|
|
|
|
Could you display your real code please? What are you really setting a(0) equal to? I mean, you are not actually setting it to New Integer right? You are setting it to an actual value? And what is the error that you are getting?
|
|
|
|
|
i'm defining a vector without defining its size
so when i make new to allocate in memory
i get the eror : not set to an instance
|
|
|
|
|
I haven't been able to get through this error without defining the size of the array upfront. If you are using Visual Studio 2005 you can use a List object instead. It is like an ArrayList except that you must declare what type of objects are being listed, so you will not have to worry about the overhead of casting the objects into what you want. Here's how you declare it:
Dim objList As New List(Of Integer)
Hope this helps.
|
|
|
|
|
dim a() as integer
array.Resize(a,0) ' or redim preserve a(0)
a(0) = 9999
|
|
|
|
|
thanks
that's work
now i have a bigger question
if a fuction return a vector
public function f() as integer ()
dim a() as integer
redim preserve a(0)
redim preserve a(1)
a(0)=1
a(1)=0
return a
end function
-----------------------------------
dim k () as integer
k=f()
msgbox(k(0)) ------->gives error : not set to instance
|
|
|
|
|
1) if you know how many you'll have you can do a 'static' array
dim a(1) as integer 'creates 0 both instances 0 and 1
2) you don't need to do a redim twice if you know how big you want to make it.
redim preserve a(1) 'will create both instances 0 and 1
3) ran you code... ran fine for me...???
|
|
|
|
|
man thanks but
the problem is when the functon return the vector ...
it allways be null
|
|
|
|
|
Maybe you should post a bigger junk of code or help explain the situation in further detail . I tested your code also and it works perfectly. Something else has to be going on.
|
|
|
|
|
I am using Visual Studio 2003. I am wondering if I can have a global dataset.
The ideal thing I would want is when someone opens this web application I would want the app then to connect to the database and haul down a table to be stored in a dataset. Then I want to be able to use this dataset anywhere in my application.
Reason I am asking is that I will need to refer to this table numerous times over the run of the application and rather than having numerous connections or leaving open a connection I would rather store the dataset in a global variable for quick use.
|
|
|
|
|
If you are working with a web app I'm not sure a global dataset is the solution. You are going to have all kinds of problems when multiple users access it at the same time. A global variable in a web project is a single variable for everyone who uses it...not a variable for a single user on a single session. I would suggest that instead you make a global method to run queries/procedures to your database. In these global methods you can include the code to open and close a single connection so you will always be sure to only have one open and you will not leave it open when you are not using it.
I hope this helps.
|
|
|
|
|
i haven't tried it personally but I think you can use cache for this. do some research on it...
|
|
|
|
|
|
Hi to everyone,
I'm writing, maintaining and deploying some applications: every aplication is made up by an executable (winexe) and some dlls (class library). To distribute them, I generate a Setup program for each application using the standard Setup project included in Visual Studio 2003.
Everything used to work fine but, a couple of weeks ago, the generated Setup for one application "lost" one library: it was simply missing from the .msi file and I had to include manually into the project to force the installation. Last week another Setup "forgot" three assemblies.
I also wrote a little vb.net program to scan - through reflection - all the referenced assemblies in the winexe and copy these assemblies in another folder and actually I found out that the same assemblies were missing from the new destination folder (but still there in the bin directory)
Given that:
- each application has all the references to the assemblies, with LocalCopy=True (indeed, I can find them in the bin directory)
- each Setup project is in a different solution than the application
- each Setup project is SourceSafe'd
- each assembly (winexe and library) is obfuscated and strong-named
- I checked version and date properties for the missing assemblies and they were coherent with the application (same version and date/time)
am I doing something wrong (or missing something important) or did?
Thanks in advance to anyone will help.
Marco Turrini
|
|
|
|
|
hello
i have a big headache to this problem that i wasnt able to find an answer, guys i really wanted your help if you can fix this, i'm using vb.net 2005 and using crystal report 9, my only problem is that the sub report, i dont know how to call that sub report that is part of the main report, it's always asking for login and password when the report is called, here's my codes and kindly and something that could fix my problem, here it is,
Dim appRdr As New System.Configuration.AppSettingsReader
Dim objreport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
objreport.Load(Application.StartupPath & "\reports\Employee_Profile_with_subreport.rpt")
objreport.SetDatabaseLogon(appRdr.GetValue("Username", GetType(String)), appRdr.GetValue("Password", GetType(String)), appRdr.GetValue("Server", GetType(String)), appRdr.GetValue("Database", GetType(String)))
objreport.SetDatabaseLogon("", "")
objreport.Refresh()
objreport.SetParameterValue("@IDNUMBER", Me.cboemployeeprofileid.Text)
Applicant_Reports.appreports.ReportSource = objreport
Applicant_Reports.Show()
employee_profile_with_subreport is the main report, and it has 3 sub report inside of that main, now when i deploy to another comp. and load that report, he will ask log-in and password and my sql is only windows authentication...help me gys..
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
