.NET (Core and Framework)

Richard MacCutchan3-Dec-13 3:13

Richard MacCutchan

3-Dec-13 3:13

This is a Database issue and nothing to do with .NET. You should be talking to your Database administrator, or the company that produces the database. Also, you should use the Database administration tools for backup.

Veni, vidi, abiit domum

RedDk3-Dec-13 10:35

RedDk

3-Dec-13 10:35

This might exemplary:
Storing and Retrieving Images from SQL Server using Microsoft .NET[^]

Pete O'Hanlon3-Dec-13 10:49

Pete O'Hanlon

3-Dec-13 10:49

Err no. That's nothing to do with the question that was asked.

RedDk3-Dec-13 11:07

RedDk

3-Dec-13 11:07

Why? Because "ImageSaveInDataBase.zip" doesn't exist on the CodeProject server?

Dave Kreskowiak3-Dec-13 15:01

Dave Kreskowiak

3-Dec-13 15:01

No, because saving and retrieving an image from a database has absolutely nothing to do with getting the names of database filestreams.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Pete O'Hanlon3-Dec-13 19:18

Pete O'Hanlon

3-Dec-13 19:18

No. It's not the answer because the OP is asking how to open up database filestreams.

Member 103249743-Dec-13 23:16

Member 10324974

3-Dec-13 23:16

Good morning.

I found this link http://www.sqlskills.com/blogs/paul/filestream-directory-structure/[^] which will help me.

thank you very much

Access to SQL

Member 103884942-Dec-13 1:04

2-Dec-13 1:04

Hello. I need a hand in my code. i wrote the following code. and i am trying to work with sql.
what should i change?
I really need some help with this :/

Public Class BindingContext
    Dim _cn As New OleDb.OleDbConnection
    Dim _DataAdapter As New OleDb.OleDbDataAdapter()
    Dim _CommandBuilder As OleDb.OleDbCommandBuilder
    Dim _DataSet As New System.Data.DataSet()
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim _provider As String = "Provider=Microsoft.Jet.OLEDB.4.0;"
        Dim _fullPath As String = "C:\Working Storage\Developments\LAB\Database Connection\Database Connection\Database\"
        Dim _dataSource As String = "Data Source=" & _fullPath & "ADOnet.MDB"
        _cn = New OleDb.OleDbConnection(_provider & _dataSource)
        _DataAdapter.SelectCommand = New OleDb.OleDbCommand("SELECT * FROM tblCustomer", _cn)
        _DataSet = New DataSet()
        Try
            _DataAdapter.Fill(_DataSet)
        Catch eror As Exception
            MsgBox(eror.Message)
        End Try
        cbDept.DataSource = _DataSet.Tables(0)
        cbDept.DisplayMember = "Name"
        cbDept.ValueMember = "ID"
        Me.txtName.Text = "Sjflkjasdlk=fj"
        txtName.DataBindings.Add("text", _DataSet.Tables("tblCustomer"), "Name")
        txtEmail.DataBindings.Add("text", _DataSet.Tables(0), "Email")
        txtAddress.DataBindings.Add("text", _DataSet.Tables(0), "Address")
        cbDept.DataBindings.Add("SelectedValue", _DataSet.Tables(0), "DeptID")
    End Sub
    Private Sub cmdRequery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRequery.Click
        DBRequery()
        Me.BindingContext(_DataSet.Tables(0)).CancelCurrentEdit()
        Me.BindingContext(_DataSet.Tables(0)).Position = 0
        RefreshData(True)
    End Sub
    Private Sub DBRequery()
        cmdSave.Enabled = False
        _DataSet.Clear()
        Try
            _DataAdapter.Fill(_DataSet)
        Catch Eror As Exception
            cmdAdd.Enabled = False
            cmdUpdate.Enabled = False
            cmdDelete.Enabled = False
            MsgBox(Eror.Message, MsgBoxStyle.Exclamation, "Error Opening Database")
            Close()
            Exit Sub
        End Try
        txtCount.Text = Format(_DataSet.Tables(0).Rows.Count, "#,##0")
        If _DataSet.Tables(0).Rows.Count > 0 Then
            txtCurrent.Text = "1"
            EnableNavigation()
        End If
        cmdAdd.Enabled = True
    End Sub
 
 
    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
        Try
            _DataAdapter.Update(_DataSet)
        Catch eror As Exception
            MsgBox("This was an error updating database." & ControlChars.CrLf & _
                eror.Message)
        End Try
    End Sub
    Private Sub cmdGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGo.Click
        If IsNumeric(txtGoto.Text) Then
            If CInt(txtGoto.Text) = CDec(txtGoto.Text) Then
                If 1 <= CInt(txtGoto.Text) And CInt(txtGoto.Text) <= CInt(txtCount.Text) Then
                    BindingContext(_DataSet.Tables(0)).Position = CInt(txtGoto.Text) - 1
                    RefreshData(True)
                Else
                    GotoError()
                    Exit Sub
                End If
            Else
                GotoError()
                Exit Sub
            End If
        Else
            GotoError()
            Exit Sub
        End If
    End Sub
 Private Sub GotoError()
        MsgBox("This must be an integer between 1 and " & txtCount.Text & " inclusive", MsgBoxStyle.Exclamation)
    End Sub
 Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
        Dim pDataRow As DataRow
        pDataRow = _DataSet.Tables(0).NewRow()
        pDataRow!name = txtName.Text
        pDataRow!email = txtEmail.Text
        pDataRow!Address = txtAddress.Text
        _DataSet.Tables(0).Rows.Add(pDataRow)
        txtCount.Text = CStr(CInt(txtCount.Text) + 1)
        cmdSave.Enabled = True  ' let user update the underlying database
        txtCurrent.Text = txtCount.Text ' make the current row, the last (recently added) row
        EnableNavigation()
    End Sub
    Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpdate.Click
        Dim pDataRow As DataRow
        pDataRow = _DataSet.Tables(0).Rows(CInt(txtCurrent.Text) - 1)
        BindingContext(_DataSet.Tables(0)).EndCurrentEdit()
        pDataRow!name = txtName.Text
        pDataRow!email = txtEmail.Text
        pDataRow!address = txtAddress.Text
        cmdSave.Enabled = True  ' let user update the underlying database
    End Sub
 Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
        BindingContext(_DataSet.Tables(0)).RemoveAt(BindingContext(_DataSet.Tables(0)).Position)
        txtCount.Text = CStr(CInt(txtCount.Text) - 1)
        RefreshData(True)
        cmdSave.Enabled = True
    End Sub
End Class

Thank you sooo much for your time

Simon_Whale2-Dec-13 1:09

Simon_Whale

2-Dec-13 1:09

What is the problem?

Is something happening that shouldn't?
does it error? if so what is the error message?

Every day, thousands of innocent plants are killed by vegetarians.

Help end the violence EAT BACON

Member 103884942-Dec-13 1:12

2-Dec-13 1:12

The code i posted works fine. But i need to use SQL instead of Access.
And i am not an expert in SQL.
So , if possible, can you tell me what to change and how in order to use SQL instead of Access?

Member 103884942-Dec-13 1:21

2-Dec-13 1:21

I started by doing this:

imports system.data.sqlClient
Public Sub Form1
    Dim _DataAdapter As New SqlDataAdapter
    Dim _CommandBuilder As SqlCommandBuilder
    Dim _DataSet As New DataSet

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim _cnstring As String = "Data Source=Eliane-VAIO\SQLEXPRESS;Initial catalog=ADOnet;Integrated Security=True;"
        Dim _cn As New SqlConnection(_cnstring)
        Dim _cmd As New SqlCommand("select * from tblCutomer", _cn)
        _cn.Open()
        Dim reader As SqlDataReader = _cmd.ExecuteReader()
        Try
            _DataAdapter.Fill(_DataSet)
        Catch eror As Exception
            MsgBox(eror.Message)
        End Try
    End Sub

But i am feeling a bit lost. And an error occurs:
the select command property has not been initialized before calling "Fill".

Simon_Whale2-Dec-13 1:27

Simon_Whale

2-Dec-13 1:27

assuming you are using SQL Server I would have a read of these

ADO.NET Code examples[^]
connectionstrings[^]

but a simple example would be as follows

string Query = "select * from someTable where id = @id";

//Replace the "ConnectionString" with your actual connection string
using(SqlConnection dbase = new SqlConnection("ConnectionString"))
{
  dbase.Open();
  
  SqlCommand cmd = new SqlCommand(Query, dbase);
  cmd.Parameters.AddWithValue(@id, 10);  //should really replace the number 10 with a variable
  SqlDataReader rdr = cmd.ExecuteReader();

  if(rdr.HasRows)
  {
    while(rdr.Read())
    {
      //output my data here
    }
  }
}

if you want to use datatables its very similar

string Query = "select * from someTable where id = @id";
DataTable dt = new DataTable();

//Replace the "ConnectionString" with your actual connection string
using(SqlConnection dbase = new SqlConnection("ConnectionString"))
{
  dbase.Open();
  
  SqlCommand cmd = new SqlCommand(Query, dbase);
  cmd.Parameters.AddWithValue(@id, 10);  //should really replace the number 10 with a variable
  dt.Load(cmd.ExecuteReader());
}

hope this helps you start to convert your rountine to work with SQL Server

Every day, thousands of innocent plants are killed by vegetarians.

Help end the violence EAT BACON

Member 103884942-Dec-13 2:15

2-Dec-13 2:15

Thank you for your help. I am new to SQL
I am trying to assemble the code. It's a bit hard for me, since it's my first time with SQL.
If you can assemble the code for me I will be more than thankfull Smile | :)

Thanks again.

Simon_Whale2-Dec-13 3:04

Simon_Whale

2-Dec-13 3:04

I am afraid to say that I wont write your code for as how would you learn if I did it for you. I have given links to examples on the web that will help you learn what you are after doing.

Every day, thousands of innocent plants are killed by vegetarians.

Help end the violence EAT BACON

Member 103884942-Dec-13 3:06

2-Dec-13 3:06

Yes i saw the links. now i'm reading their content
and i am trying to figure it out. Thank you Smile | :)

Re: Access to SQL.

Member 103884942-Dec-13 2:19