amin007 1 Report post Posted August 26, 2008 assalamualaikum dan selamat sejahteraaku ada masalah nak tukar xls jadi mdbfail xlsfail mdbada idea tak macam mana nak pecahkan medan NAMA KIR/ KP/ ALAMATjadi medan 1)NAMA KIR 2)KP3) ALAMATsekian wasalam Quote Share this post Link to post Share on other sites
MatchMaker 0 Report post Posted August 28, 2008 Dari xls sendiri data tu dah tak seragam.ada yang dalam satu cell dan ada pulak yang di pecahkan pada 3 cell.rasanya ko ke massage dulu data tu. bila dah ada delimiter baru senang nak pecahkan kepada 3. Quote Share this post Link to post Share on other sites
ayoi 1 Report post Posted August 28, 2008 Dari xls sendiri data tu dah tak seragam.ada yang dalam satu cell dan ada pulak yang di pecahkan pada 3 cell.rasanya ko ke massage dulu data tu. bila dah ada delimiter baru senang nak pecahkan kepada 3.design dulu database diagram.. flow chart... tak boleh nak main amik dari xls nak convert ke sql/access pastu nak buat application...nanti problem bug sana sinidah design siap.. apa yang kita nak keep in ..dan apa yang kita nak show kat report... masa sapa penyelia.. time... remark ..item... arrr.. kemudian ari senang.. coz data colum dah ready.. just keep in je.. tak keep in tak de la data...**seeloknya setiap application ada product id ..kalau barangan. kalau manusia .account ID ( sebagai primary ) jadi rujukan mula dari situ. sebab tul bil air api phone cukai.. apa yang penting.. no account... pastu baru ic. ** kalau nak ikutkan kat mesyia elok guna primary no IC je.. sebab ic tau la nombor tu je utk org tu... tapi tanya no ic.. tak ingat la. malu la..dan ada yang marah .. ( konon takut umur kantoi... hehe ) rahsia. Quote Share this post Link to post Share on other sites
areizuaf 0 Report post Posted August 28, 2008 assalamualaikum dan selamat sejahteraaku ada masalah nak tukar xls jadi mdbfail xlsfail mdbada idea tak macam mana nak pecahkan medan NAMA KIR/ KP/ ALAMATjadi medan 1)NAMA KIR 2)KP3) ALAMATsekian wasalamuntuk selesaikan problem nie,mungkin bro amin boleh buat program untuk baca data yang telah di export ke database tu..kalo kite tengok structure DB tu, nama seterusnya akan wujud bila ada nilai kat field BIL.so, maybe program tu boleh baca DB tu sehingga jumpa bil yang mempunyai value.dari situ kite boleh la dapatkan data ikut row yg betul.... Quote Share this post Link to post Share on other sites
amin007 1 Report post Posted August 29, 2008 terima kasih atas pandangan ko orangsatu jalan yang aku jumpa laa1) jadikan/kopikan medan NAMA KIR/ KP/ ALAMAT ada 3 kali2) rename medan tersebut jadi NAMA KIR, KP dan ALAMATtapi kena edit satu-satukalau nak buat program pun payah jugasebab rows tak seragambolejh buat ker program tu areizuaf??? Quote Share this post Link to post Share on other sites
areizuaf 0 Report post Posted August 29, 2008 maybe boleh membantu.code dlm VB 2005 (.Net Framework 2.0)Imports System.Data.OleDbPublic Class Form1 Dim DB As New OleDb.OleDbConnection Dim sqlstring As String = "" Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dtrdr As OleDbDataReader = Nothing Dim i As Integer = 0 Dim str As String = "" Dim splitstr() As String sqlstring = "SELECT * from Sheet1" If DB.State = Nothing Then connect() End If Try Dim cmd As OleDbCommand = New OleDbCommand(sqlstring, DB) dtrdr = cmd.ExecuteReader While dtrdr.Read If dtrdr(0).ToString.Length <> 0 Then str = dtrdr(0).ToString & vbCrLf End If If dtrdr(0).ToString.Length <> 0 Then 'Label1.Text = dtrdr(0).ToString splitstr = Split(dtrdr(1).ToString, vbLf) For i = 0 To UBound(splitstr) str += dtrdr(1).ToString.Split(vbLf).GetValue(i) & vbCrLf Next Else str += dtrdr(1).ToString.Split(vbLf).GetValue(0) & vbCrLf End If MsgBox(str) End While Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) Finally DB.Close() End Try End Sub Public Sub connect() Try DB = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db1.mdb") DB.Open() Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Information, "") End End Try End SubEnd Class Quote Share this post Link to post Share on other sites