this is my code for saving
Code:
Public Sub saveExcelFile(ByVal FileName As String)
Dim xls As New Excel.Application
Dim sheet As Excel.Worksheet
Dim i As
Public Sub saveExcelFile(ByVal FileName As String)
Dim xls As New Excel.Application
Dim sheet As Excel.Worksheet
Dim i As
Dim lvitem
Dim iCount As Integer
Dim iLoop As Integer
Dim query3 = New SqlCommand
query3.Connection = New SqlConnection("SERVER=localhost;UID=root;DATABASE=test")
iCount = lvLogs.Items.Count()
If Not lvLogs.Items.Count = 0 Then
Do Until iLoop = lvLogs.Items.Count
LvItem = lvLogs.Items.Item(iLoop)
With LvItem
query3.CommandText = "insert into wer(CustomerName,SalesGroup,CustomerType,TypeOfIndustry,RM,SeniorRM)
Dim iCount As Integer
Dim iLoop As Integer
Dim query3 As New MySqlCommand
Dim lvitem
ConnectDatabase()
cona.Open()
iCount = lvLogs.Items.Count
If Not lvLogs.Items.Count = 0 Then
Do Until iLoop = lvLogs.Items.Count.ToString
lvitem = lvLogs.Items.Item(iLoop).ToString